ANO III - N 28 - JANEIRO 64 - CrS 1
111*
A PRIMEIRA REVIJTA BRASILEIRA DE MICROCOl
v
X
\
^*=>.
4k
K.A
^
J
4\ t
i
ENTER
\
',-'
AS-1000
o micro que cresce com voce.
AS
-ioo
CARACTERISTICAS TECNIC AS:
• 16 K bytes de memoria inlciais
• Expansao Interna para 32 e
48 Kbytes
• 8 K bytes de memoria EPROM
• Microprocessador Z-80A
• Teclado de membrana com
acao mecanlca positive
40 teclas e 154 funcoes
1 Basic e llnguagem de maquina
• Video normal ou reverso
• Saida para qualquer Impressora
• Martlpula ate quatro cassetes
com geracao de arqulvo
• Modem
• Joystick
File
nte de allmentacao
embutlda (110/220 volts)
• Nivel de leitura de gravacao
automatlco
O Microcomputador AS-1000
e uma otima escolha para quern esta
iniciando na ciencia da computacaow Seus
recursos de programacao e sua concepcao
m€>dular. porem, permitem que ele
o acompanhe ate as aplicacoes mats
sofisticadas.
O AS-1000 Ja nasce com uma biblioteca de
milhares de programas para jogos.
admin istracao domestica, aplicacoes
comerciais e profissionais.
O AS-1000 e fabricado com a qualidade
ENGEBRAs e garantido por um ana.
Entre na era da informatica com a escolha
cert a. AS-1000, o seu micro pessoal.
Escreva no$, sua correspondence nao Ucara sem resposta.
; ENGEBRAS
' ELETRONICA E INFORMATICA LTOA.
Rua do Russel, 450 - 3.° andar
cep 22210 Rio de Janeiro - RJ
Tel.: (021) 205-4898
Cobra apresenta
suamaquina
devencercr1ses
■ KlIMII •• »«•!••«
De repente. voce descobre que a crise e geral.
Crise no faturamento. porque as notas fiscais sao emitidas muito
devagar. Crise na folha de pagamento. porque as alteracoes
salariais sao cada vez mais frequentes. Crise no planejamento
financeiro. estrangulado pela irregulandade da cobranca e a
pressao dp contas a pagar.
E de crise em cnse voce descobre que chegou a hora de uma
decisao madiavel ; a compra de urn Cobra 305. o microcomputador
profissional.
Cobra 305 poe sua empresa em ordem num apertar de dedos
Ele emite notas fiscais. controla o estoque. faz o faturamento,
programa a cobranca e o contas a pagar. faz a folha de pagamento.
elabora os mapas de vendas. controla a comissao dos vendedores.
emite as guias para recolhimento de impostos e encargos sociais
Tudo com muita economia de custo e nenhuma chance de erro.
Como voce ve. o Cobra 305 nao faz milagres. Ele apenas permite
que voce tenha informacoes atualizadas o tempo todo e possa
tomar suas decisoes com mais seguranca.
Se voce tambem quer sair da crise pela porta da frente. contate a
Cobra e assista a uma demonstracao do Cobra 305. o micro
profissional.
VsODfd \5UO profissional
r
• RAMCARD • SOFTCARD • VIDEOTERM • SOFTVIDEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS
INFT. PRINT • SATURN 128K RAM. • SATURN 64K RAM. • SATURN 32K RAM. • RANA QUARTETO • MICROMODEM
• MICROBUFFER II • MICROCONVERTER II ■ MICRO VOZ II ■ ULTRATERM ■ ALF 8088 CARD
■ A800 DISK CONT ■ MULTIFUNCTION CARD
MICROCRAFT MICROCOMPUTADORES LTDA.
ADMINISTRAgAO E VENDAS: AV. BRIG. FARIA LIMA, 1.664-3? ANDAR - O 316 - CEP 01452
PONES (01 1) 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL
Ano III
N.28
Janeiro 19*4
>&D Sistemn* FW*o-*m« S.A»
Biblioteca
St MARIO
. Vfflcro
| gCICLOTRON: SUPERE
J.OESTA BARRA! — Urn jogo
de dupla bastante criativo este
que Hendy Takeshi Yabiku nos
traz para a linha TRS-80
modelo III Muito reflexo e
tiradas estrategicas serao
necessarias na perseguicao
implacavel que se travani entre
voce e seu adversaries.
sjaPESCARIX EM AG LAS
Z^ELETRONICAS — Pescar e
urn lazer solitario e relaxante
por excelencia. Foi este clima
que Nelson Hisashi Tamura
procurou passar para este jogo
que rodu nos micros da
linha Sinclair.
tjMJM TECLADO A MODA DA
/ "CASA — Voce podera
redefinir o teclado de seu
micro compativel com o Apple seal
precisar modifica-lo a nivel de
hardware. E que nos mostra
Carlos A I be no Diniz com o
utilitario que desenvolveu para esta
finalidade.
82
JOYSTICK: FUNDAMENTAL
OL ACESSORIO? —
MICRO SISTEMAS lanca a dtivtda
c tece comentarios a respeito
das questoes que rodeiam
me read o national. No mesmo
artigo, um box sobre os mais
recentes modelos de joysticks
norte-americanos
| ^AVENTURAS EM SERRA PELADA — Programa
X^Tde Renato Degiovani.
/^•■MR. AMPERSAND — Artigo de
ZOi
30
'Nelson Filho.
ARRISQUE E PETISQUE COM SEU MICRO —
Artigo de Wilson de Carvalho Junior.
^^LOJAS DE MICROCOMPUTADORES —
<D*J Parte final da tabela.
48
APPLE PADDLE: FA^A VOCE MESMO —
Artigo de Evandro Mascarenhas de Oliveira.
.BOMBARDEIO — Programa de
*7A»Helvecio C. R. Netto
5C
56
PENOSA TRAVESSIA — Programa de
ustavo Egidio de Almeida.
MICRO PAC: SAIA DESSA SE PUDER —
Programa de Walmir Scaravelli.
£OCADASTRO DE CLIENTES — Programa de
30i
'Newton Braga Junior.
LASER BASE: O TIRO DO CANHAO —
Programa de Armando Neves.
62
g^yf COBRA PEGA RATO E... "6"! — Programa
66
69
Me Claudio Esperanca.
BOLA DEMOLIDORA... REBATA ESS A! —
Programa de Luiz Gonzaga de Alvarenga.
CIRCUITO DE FORMULA I — Programa de
Daniel Jose Burd.
^¥/^RESISTA AO ATAQUE — Programa de
/^Paulo Prado Junior.
7{) CURSO DE ASSEMBLER — XII
80
CUIDADO... OS ASTEROIDES VEM AI —
Programa de Sergio Henrique Jarreta.
84
SECOES
OS PALPITES DA MICROZEBRINHA —
Programa de Nelson Hisashi Tamura.
6 EDITORIAL
8 XADREZ
10 CARTAS
20 BITS
23 CON VERS AO
29 LIVROS
55 CLASSIFICADOS, CLUBES
E MENSAGEM DE ERRO
68 CURSOS
74 DICAS
MICRO SISTEMAS. jan«iro/84
No editorialdo numero passadoje-
chamos 83 mencionando a evo-
lucdo do mercado brasileiro de
micro in formatted no que diz respeito a
indiistria de equipamentos e perifericos
e as empresas de prestacdo de servicos e
comercializacdo , bent como, principal-
mente, referindo-nos as revistas especia-
lizadas e seu lugar de destaque enquanto
fonte de informacoes.
Muitas vezes informacoes sdo difi-
ceis. Difteeis no sentido de que a indiis-
tria ndo as divulga. Difteeis pois muitas
vezes os manuais sdo omissos ou pouco
explteativos sobre determinados assun-
tos. Difteeis enquanto houver a tenden-
cia de se repetirem vteios de concentra-
cdo de conhecimento - e outras defor-
macoes e insuficiencias socio -culturais
dai advindas -; fatais por setratarem,
no caso, de informacoes tecnicas, sobre
um assunto amplo e fascinante em que a
resposta a uma duvida e prontamente
substitufda por outra interrogacdo.
Esta tendencia e expressa por aquele
"achei um livro otimo. mas ndo conte
para ninguem", ou "fa um programa
fantdstico. mas nab da para te arrumar",
ou ainda numa situacdo conhecida: con-
sigo uma copia do "Amigo Pirata", ou
de qualquer outro software de fora,e
guardo a sete chaves; pirate io o pirata;
ponho um anuncio classificado na revis-
ta e deixo numa loja para demonstra-
ted ("vou ftcar mSiondriol"); vendo
uma 'matriz' e... das copias se encar-
regam os outros piratas.
Esta tendencia se ex pi tea pelos so-
nhos que nos trazem aquela 'hipnose'
cultural de que continuamos a sofrer.
Neste mercado, certamente nosso espe-
Iho sdo os EVA : os jogos, joysticks, im-
pressoras, light pens, grdficos de alta re-
solucdo, os calcs, os stars, as macds,
amendoins, jovens miliondrios, executi-
vos de garagem e tudo mais que essa fan-
tdstica sociedade sempre terd a nossa
frente, em qualquer departamento ou
setor, salvo amplas alteracoes nas rela-
coes de convivencia internacionais, no
momento fora de nosso alcance de visdo.
Entretanto, ndo ha novidade alguma
nesta revelacdo. Como muitos jd tiveram
a originalidade de dizer, ndo devemos
reinventar a roda, donde e certo que
muito do brilho dos softs, hards e peri-
fericos que hoje ndo conhecemos, ama-
nfid certamente jd teremos adaptado.
Adaptado. Melhor ainda: desenvolvido ,
evoluido, criado. Chegaremos la.
E se os veiculos de informacdo espe-
cializada conseguiram o referido suces-
so, desejamos comecar 84 homenagean-
do aqueles que efetivamente nos tern
ajudado a crescer. A eles MICRO SISTE-
MAS dedica sua edkdo de Janeiro: nos-
sos colaboradores, que nos tint enviado
sistematicamente seus programas, dicas
e descobertas.
Consideramos que este numero refle-
te bastante do que o pessoal tern desen-
volvido por at. Boas telas, bom tnovi-
mento, apresentacoes que demonstram
preocupacdo com clareza de instrucoes.
Podemos garantir ao leitor um bom
divertimento ao longo de nossas pdginas.
e ficamos aqui ansiosamente aguardando
suas impressoes.
(JfA*. ^Pcu^^r-
Editor/ Dirator RvsponMvel
Aioa Sure'us Campos
Dirator Tecnico.
Renaio Degiovani
AtMsaoria Tacnica: Roberto Quito oe Sant Anna
Luiz Antonio Perena. Orson Voerckei Gaivao
Radacao:
Eana Aainpe isub-adrtonai
Ciauda Saiies Ramaiho
Oenise Piagana
Graca Santos
Maria da Gloria Esperanpa
Ricaroo inoiosa
Steia Lachtermacher
Colaboradoras: Akeo Tanabe Amaury Moraes Jr
Antonio Costa Pereira. Evando Mascarenhas de On-
veira. Ivo D Aqumo Neto. Joao Antonio Zutto. Joao
Henrique Franco. Joao Henrique Volpini Mattos. Jorge
de Rezenoe Dantas. Liane Tarouco. Luciano Niio de
Andrade Luis Lobato Lobo. Luiz Carlos Eiras Luiz
Gonzaga de Aivarenga. Marcus Brunetta, Paulo Saiies
Mourao Robson Viieia. Rudoit Horner Jr
Suparviaao Graftca: Lazaro Santos
Revisao: Maria Regma Pierantom McCarthy
Diagramacao: Leonardo A Santos
Aria Final: Vicente de Castro
Fotografta: Monica Leme. Nelson Jumo
lluatraooM: Gustavo Mendes. Hubert. Ricardo Leite.
Willy
ADMINISTRACAO: Louienco Oiiva Neto (SPi . Tercio
Gaivao (RJ|
PUBLICIOADE
Sao Paulo:
Natai Caima
Contatoa: Gem Roberto. Marcia Padovan Moraes. Ma
nsa Coan
RtO da Janeiro
Marcus Vimcius da Cunha Vaiverde
Contatoa: Elizabeth Lopes dos Santos. Ivo Fonseca
CIRCULACAO E ASSINATURAS
Marcos dos Passos Neves (RJ)
jan.o Peie ia 1SP1
DISTRIBUICAO:
A S Motta — Imp Ltda.
Tels (021) 252-1226. 263-1560 (RJ)
(011) 228-5076 (SP)
Compoaicao:
Gazeta Mercantil SA
FotoWo:
Orgamzacoes Bern Ltda
Unpraeaao:
Gratica e Editora Pnmor Ltda
Aaainaturaa:
No pais 1 ano — Cr$ 10.000.00
Oa artigoa aaainadoa aao da rasponaabtlidada unlca a
excluaiva doa autoraa. Todoa oa diraitoa da raprodu-
cao do contaudo da ntvlata aatao raaarvadoa a quai-
quar raproducao. com tinalldada comarcial ou nao,
aO podant aar tarta mediante autorizacao previa Trana-
cricoaa parciais da trachoa para comantanoa ou ra(a-
ranclaa podam aar tertaa, daada que aa|am mancio-
nadoa oa dados bibliograflcoa da MICRO SISTEMAS.
A ravlata nao acaita matartal publlcitario qua poaaa
aar contundido com materia radacional.
MICRO SISTEMAS e uma pubiicacao mensai da
AJJQ
Anaiise. Teieprocessamento e
Intormatica Editora Ltda
Oiraioraa: Alvaro Teixeira de Assumpcao. Alda Surerus
Campos. Roberto Rocha Sobrinho
Enderecoa:
Al Gabriel Monteiro da Suva, n ' 1227 — Jardim Pau-
nstano — Sao Pauio — SP — CEP 01441 — Teis (0i 1 1
280-4144 e 853-3800
Rua Visconde Siiva. n.* 25 — Botatogo — Rio oe Ja-
neiro - RJ - CEP 22261 - Teis (021 > 286-1797. 246-
3839 e 266-0339
MICRO SISTEMAS, janeiro/84
hscreva
oseuUnmon
no piano de
expansao.
Estes sao os pianos de expansao para o seu Unitron ap II.
Sem demora nem f ila de espera, basta voce fazer a inscricao que
eles come^am a funcionar imediatamente.
Piano I - Expansao de memoria com +32ou + 64ou+ 128K.
Piano 2- Impressora paralela de textos ou graficos.
Piano 3 - Microprocessador adicional Z - 80 (CP/M) .
Piano 4- Videocom40ou80caracteresporlinha.
Piano 5 - Interface RS-232C para impressora ou comunica^oes
( ligacao via MODEM - redes ou grandes computadores)
Piano 6 - Disco f lexivel de 5 1 /A" ou 8" - (isolados ou simultaneos)
Piano 7- Disco rigido (Winchester 5Mb).
Piano 8 -Saida de video a cores PAL-M ou RGB.
Piano 9 - Sintetizador de voz e sons.
Piano 10- Digital izadorde imagens.
€XpGii5CiG Gp IE
Mais um servico Unitron.
S4W Pmutt - A*aco Id 7*9 16*4 » .a-. Id 7*00671 Co~p„S*o<> Id 71001*7 CompvM W *5? *?90 Comt*,».1o~J 1*1 3313777 Comoro*. Id 7313977 i'llo M 876 UM Cqu.po Id 770 1566 'MolK Id 37 7707 II
Id 770061 > Imo-M Id 610946 i»lo— a. Id 11406*2 «ow Id 75*4411 M*.o<Mop Id 7177105 No.oO..«4o Td 11 4 3663 0*1 Id 7(0 7966 »-<x«to Id 545 549* ».« fl«.6~«o Id 7717137 S».~...< Id 772 151'
Sotto Id 114059* T.g*. Id 7129577 Iwoq Id 759 7600 C»mpm«i - Compvt-o^ Id 101971 37 3*10 0»~ Id 0197 37 77*6 CompvHrto-xl Id 01971 31 *49» t» *• l—y~» ■ C (opp, Id (071(7533170 *«'oigmo Id
071 26712*9 MK'Otii Id 071 767*791 Coopvhqv* Id 071 76' 1093 »»o Id 071 399 6330 C ompvWlona! Td 07' 551*947 t*U Hwiisnl* ■ Co-p^.iy Id 031 7266336 Campv»o~> Id 0)1 775J305 Mooihop Id
0)1 27? 7*89 CuriMba - Coow'O Id 041 724 5616 ConpuMw Id 041 741 1 73 1 Undnna-Cowo Id 0437; 73 0065 l«ife - CM-«.»o Id 10*1.376911* M-oothoe Id <0*<i376<525 W*»+- ■ Ot-c.-o Id 071 2 a 6666
l - Co-npMho. Id 061|2737I7* CvWM - Mxrodm Id (065,3779713 **t*»«1l«p»-<l«1l*lllll*| Id (0317)761194 Co«p u m«jK> Id ,05I7| 77 5061 J«M«t* ■ Comoro Td (04741 M 7570
Enxadnsta expenente. Luciano Nilo de An-
drade ja" escrvvcu para os jqrnais "Cornsio da
Manht". "Data News" a "Ultima Hora" a pa-
ra a revista "Fatos & Fotos". Luciano 6 econo
mixta, trabalhando no Ministttrio da Fazenda,
no Rio da Janeiro. As opmibes e comentirios
de Luciano Nilo de An drade. bem como as
ultimas novidades do Xadrez jogado por com-
putadores, estarSo sempre presentes em
MICRO SISTEMAS.
Um micro alemao
na Uniao Sovietica
A revista de xadrez 64 de setem-
bro, editada em Moscou, traz
um artigo de B. Pimonov apre-
sentando o micro SC-2, fabricado na
Republica Democritica Alema pela fir-
ma Funkverk.
Depois de citar as possibilidades do
micro, comuns aos de sua classe, o Dr.
Bernd Braw, representante da f^brica,
disse: "Gostaria que nosso filho agradas-
se aos aficionados sovieticos. Temos es-
peranca de que eles o comprem".
Pimonov conta que o aparelho levado
a redacao da revista foi aprovado com
Sxito. De bela aparencia, ele resolveu os
problemas que Ihe foram apresentados e
ganhou uma partida do fotografo.
A seguir, reproduzimos a partida jo-
gada por Pimonov, de brancas. Nao foi
mencionado o nfvel em que o micro
jogou, isto 6, a relacao tempo/jogada.
B. Pimonov x Micro SC-2
Abertura Giuoco Piano
1 - P4R P4R; 2 - C3BR C3BD; 3 -
B4B B4B; 4 - P3BD C3B; 5 - P4D
PxP; 6 - PxP B5C+; 7 - C3B. "Inicial-
mente pretendia jogar 7 — B2D, mas
resolvi verificar se o micro conhecia a
velha continuacao italiana". 7 — ...CxP;
8 — 0-0 BxC. "Parece que conhece. De
outro modo, seguiria a continuacao de
Greco 8 — ... CxC). que sabe ele do
ataque Miiller?" 9 — P5D. "Mas aqui me
lembrei que, com a resposta 9 — ... C3B,
as brancas perdem um peao". 9. — ...
C4R; 10 - PxP CxB; 11 - D4D. "De-
pois desta jogada, ofereci empate".
Respondendo ao leitor
HlJLlJlw
///////A ?i
Posicao depois de 11 — D4D. Infelizmente, o
precoce empate nao permits avaliar a force do
SC-2. O que ocorreu mais parece um teste de
memorizacio.
Nelson Adriano Brazys, de Sao Pau-
lo, leitor desta secao, pergunta o que 6 o
Elo e como o mesmo 6 medido. Como
esta pergunta 6 formulada frequente-
mente, farei um resumo a respeito.
objetivo do Sistema Elo (ou sim-
plesmente Elo), criado pelo Prof. Arpad
Elo, da Hungria, 6 estabelecer um m6to-
do estati'stico para medir os resultados
enxadn'sticos obtidos por cada jogador.
Utilizando instrumental matema'tico,
6 calculada a expectativa do jogador em
funcao do seu Elo com os demais. Se
seu resultado for superior ao esperado,
seu Elo sobe; caso contra>io, seu Elo
desce. Se for igual ao esperado, seu Elo
permanece inalterado.
Elo reduz erros e maestria t^cnica
a simples numeros (para desespero de
numeroso contingente de enxadristas).
A uma partida ganha com tecnica impe-
c<ivel ou com combinacao brilhante e
profunda 6 atribui'do o mesmo valor da
que e ganha por um jogador que, depois
de estar em posicao perdida, vence em
virtude de erro grosseiro do adversaVio.
MICRO SISTEMAS, janeiro/84
Imaginacao, intuicao, maestria nao
influem nos resultados tabulados. Elo
mede sc os resultados e nao o talento.
Alguns dos requisites necessirios e
mais comuns para a obtencao de Elo por
um jogador novico sao: participar de
torneio com pelo menos nove rodadas;
metade dos competidores, pelo menos,
devem ser titulados; 1/3, no m£ximo,
pode ser da mesma federacao; ter, no
mSximo, 20% de jogadores sem Elo; a
competicao deve ser dirigida por um
Srbitro internacional; nao mais de 45
jogadas para duas horas; nao mais de
uma partida por dia (em casos excep-
cionais sao permitidasduas).
£ considerado com forca de GM o
jogador com Elo a partir de 2.450, Ml a
partir de 2.350 e MF (Mestre da Fide) a
partir de 2.250.
Henrique Mecking (Mequinho) 6 o
jogador brasileiro de maior rating
(2.625). A seguir vem Sunye com
2.480, Trois com 2.395 etc.
Aos ex-campeoes do mundo foram
computados os seguintes Elos: Steinitz
(2.650), Lasker (2.720), Casablanca
(2.725), Alekhine (2.690), Euwe
(2.650), Botowinnik (2.720), Smyslov
(2.690), Tahl (2.700), Petrosian
(2.690), Spassky (2.680) e Fischer
(2.780).
Sutilezas em f inais de pedes
Scholz x Lorenz
Correspondencia, 1964
Svacina x Muller
Viena, 1941
wM yfifflb-., iiiL,
W
m mm mk Wk
y/fMM y/////M W—
w -Mm mm. mm.
m& a i§§ a mm a
up mm a mm a mm
§, W/ O^Jfc ill J^pl
Diagrama A - As pretas jogam e ganham
Diagrama B — As pretas jogam e ganham
SOLUC0ES
(19d d*d ~ P) Lueque6 a ;a9 d
09d d x d - 8 'I9d (\19d d*0d - Z) OEU - S -i9£d 030 - P 'd*d QfrO - E
d*Hd - Z -iaQd - - I ~ 8 eujejBejQ f;usd 0*d - Z -id*0 - I - V eujej6e!a
!.*«.
EL 8000
Se seu problema e impressao.
A ISA, Industria de Impressora S/A, apresenta a EL 8000
a impressora que prova na pratica sua capacidade de
trabalho. Impressao matricial 9x7, permitindo ate
8 vias numa velocidade de 100 CPS. Equipado com
memoria de 2 K caracteres, utilizando formulario
continuo folhas soltas ou bobinas de papel. De / /
80 at6 132 caracteres por linha; Interface ' // / / •
serial RS 232 e paralelo. Velocidade ^
de comunicacao de 9.600 B.P.S.
8 diferentes tipos
de impressao.
ISAe
a solucao.
H
UISA
INDUSTRIA DE IMPRESSORAS S A
Escnlono
R Piol Jose Marquasda Ciuz. 234
Fabr.ca
Rua Cenlro Alficana. 74
Teis (011)240 2442 543 4939
Ttltn (011)36926IIIMBR
Sao Paulo S P
©ECODFITfl
SIS 'I Ml 01 MOCISSMtlNTODf 0*0011 lIllCMIMICKMl
MATRIZ Rioda Janeiro R Repubhca do libano 61 12 and
Tel (021)2214677 Tele. ,021 ) 30187
filiaiS S Paulo R FrtiCanaca 1119 Ttl (011)284 8311 Talt> (01 1) 22191
Brasilia SCS02 BlocoCn 41 SL 01 Ttl (061) 225 1588 Tele. (06li 1Z40
Porto Alegre Rua Sanla Terannha. 300 Tel (051)32 3564 Tale* (051)2144
Qoiania Balo Horuonle Salvador
MICRO SISTEMAS, janeiro/84
/
/
O sorteado deste m6s, que recebera uma
assinaturadeum anode MICRO SISTEMAS,
e Pedro Paulo Luz C. Filho, de Brasilia.
c
NE-Z8000
D
(...) Tendo comprado um NE-Z8000, da
Prologica, e nao dispondo de muito tempo
para manuse£-lo, ia tudo bem. Ate que co-
mecei a utiliza-lo mais e a( surgiu um proble-
ma que se foi agravando com o tempo: na
digitacao de programas mais longos, o cursor
sumia juntamente com a imagem, e s6 reapa-
recia se eu desligasse e tornasse a ligar o mi-
cro. Assim foi, at6 que um dia a imagem de-
sapareceu de vez.
Depois de procurar varias oficinas tecni-
cas e nenhuma assumir a responsabilidade
pelo conserto, resolvi abri-lo e tive uma sur-
presa das mais desagrad£veis: vi o que se po-
de chamar de uma verdadeira "gambiarra",
onde v6rios CIs na"o estavam soldados a pla-
ca do impresso, mas sim colados, de pernas
(pinos) para cima, em outros CIs. Como isto
s6 nao bastasse, havia varias partes do circui-
to impresso interrompidas e eram feitas pon-
tes para outras partes do mesmo (...).
Reginaldo dos Santos Chaves
Volta Redonda-RJ
Enviamos. como sempre, sua carta para a
Prologica, e esta respond eu: "Com relacao a
sua carta enviada para a conceituada revista
MICRO SISTEMAS, gostarfamos de esclare-
cer-lhe no que diz respeito ao nosso equipa-
mento.
Como todo equipamento eletronico, o
NE Z8000 pode apresentar defeitos, e o pro-
cedimento correto para solucionar esse pro-
blema e leva-lo a uma assistAncia tecnica au-
torizada Prologica, onde tecnicos ecpeciali-
zados e treinados pela Prol6gica irao repa-
rar seu micro sem nenhuma dificuldade.
Com relacao aos CIs que nao se encon-
tram no circuito impresso, isso e decorren-
cia de mod if icacao no projeto original, uma
vez que estamos continuamente procurando
aprimorar nossos produtos.
A resolucao graf ica do NEZ8000, que
V. Sa. considera um grave defeito, assim nao
nos parece, uma vez considerada a relacao
custo-benef Icio."
Eng. Dan Guinsburg
Gerente de Produtos-Computadores Pessoais
da Prologica
c
TK PRINTER
D
Mandamos a sua carta, Ricardo, para a
Microdigital e para a Tesbi. Respectivamen-
te, nos responderam:
"Gostarfamos de irrformar que a respon-
sabilidade de tomar sinal por conta de um
produto nosso edo revendedor".
Ricardo Tondowski
Dept. de Relacoes PGblicas da Microdigital
"Com relacao a carta do leitor, expcmos
seguinte:
1 — Nao e nossa culpa se a Microdigital
anuncia produtos e depois nao os fabrica,
deixando seus usuarios insatisfeitos;
2 — Nao entendemos a crftica do leitor co-
mo sendo para a nossa empresa, pois ele nos
pareceu claro com a sua insatisf acao nao por
nao ter tido seu dinheiro devolvido, e sim
por nao ter podido adquirir a impressora.
Assim como este, varios outros usuarios
se sentiram frustrados por nao poder adqui-
rir a impressora para o TK, mas em hora al-
guma os revendedores podem arcar com tal
responsabilidade, sendo que efetuamos a de-
volucao a todosque solicitaram (...)".
Angela Cristina Belsito
Dept. Comercial da Tesbi
(...) Minha crftica e quanto ao fato de ter
encomendado uma impressora para o TK no
dia 11/01/83, na Tesbi Engenharia Ltda.,
pagando no ato da encomenda a importan-
cia de 47 mil cruzeiros, e at6 a presente data
na"o terem entregue tal encomenda (reclama-
cao baseada no prazo de entrega de 90 dias),
tendo que solicitar meu dinheiro de volta.
Ricardo Alexandre Marinho
Rio de Janeiro-RJ
c
PROTEXTO NO DGT-100
J
Gostaria de registrar junto a MICRO SIS
TEMAS, e aos leitores desta conceituada re-
vista, meu desgosto, e talvez ignorancia,
quanto ao programa PROTEXTO, proces-
sador de texto desenvolvido (?) pela Digitus.
Possuidor de um DGT-100, adquiri o referi-
do programa numa revendedora autorizada.
O manual com instrucoes 6 bem razoavel
A melhor casa do Rio para
Os executivos que vem ao Rio, principalmente a negocios, agora podem contar com
uma casa que transforma sua rapida passagem pela cidade maravilhosa em
momentos inesqueciveis. Em pleno coracao de Copacabana, estamos debracos
abertos e prontos para oferecer dos mais simples aos mais sofisticados modelos e
acessorios que fazem nossa atividade tao excitante e tao imprescindivel nos dias atuais.
Oferecemos o que existe de melhor, em termos de qualidade. E a prepo e condigoes de
pagamento ( e, nos financiamos ) que nenhuma outra casa do ramo oferece.
Nossa filial da Rio Branco tambem tern o mesmo atenplimento e o mesmo preco.
Quando voce estiver no Rio, passe bons momentos conosco. Nossos precos sao tao
em conta que de repente a diferenca da para cobrir seus custos de passagem e estadia.
Voce e sua empresa vao descobrir como e fantastico, e barato, o mundo dos
microcomputadores.
Veja esta oferta ai ao lado, por exemplo.
ApII da Unitron e a solucao perfeita para as pequenas, medias e grandes
empresas, profissionais liberais, condominios e o dia-a-dia do lar.
E solucao tambem no preco. Na Clappy , voce encontra o ApII pelo menor preco da
praca e com macro solucoes de pagamento.
Clappy
Copacabana: Rua Pompeu Loureiro, 99
Centro: Av. Rio Branco, 12 • loja e sobreloja • Tels.: (021 )
253-3395 • 2574398 •236-7175 #264-2096
(...), ma* ocorreu o seguinte: ia tudo bem
ate que, apds ter gravado um texto em f ita
K-7, tentei recuperate Nab consegui suces-
so, apesar de possuir o programa ha doit me-
ns, e depois de varias tentativas.
programa "aborta" e nao ha" nem meio
de dar o RESET. Fui ate a revendedora au-
torizada e tentei com um computador e gra-
vador diferentes, constatando, entao. que o
mesmo erro acontecia \& t.imbem. Ja enviei
uma carta a Digitus, que ficou sem resposta
ate agora. Ficaria muito grato se voces pu-
dessem me ajudar.
(.„) Li recentemente em uma publicacab
norte-americana que o mesmo problema es-
tava acontecendo, mas com outro programa,
que e o EDTASM versab 1 .0. Como acred i-
to que os programas da Digitus sejam basea-
dos em similares norte-ameicanos, ocorreu-
me que o mesmo pudesse acontecer com o
P ROTE X TO. Quern sabe?
Pedro Paulo Luz C. Filho
Brasflia-DF
Remetemos, como 4 nossa norma, sua
carta para a Digitus, que nos respondeu:
"Em atendimanto a vossa solkitacab, inffor-
mamos-lhes que o programa PROTEXTO
functona normalmente no DGT-100, sendo
possivel que a gravacao em poder do Sr. Pe-
dro Paulo esteja danrficada. Para resolver o
problema, ja remetamos nova fitaao usuerk>.
Gortarlamos, entretanto, de esclarecer
que somente agora foi tomada uma atitude,
am vista de nao termos recabido a carta ci-
tada pelo Sr. Pedro Paulo, pois esta nio
consta do nosao livro de registro de en trad a
da correspondencia. Informamos ainda que
este assunto — cartas recebidas dot usuarios
— muito nos preocupa e tomamos cu (dados
especiais para qua todas sejam reapondidas,
sendo, portanto, muito drf fcil qua uma cor-
respondencia nio seja respondida ou stand i-
da.
Marceto A. Batista
Diretor da Digitus
c
MS AG R AD EC E
J
Solicitamos que o seu prestigioso veiculo
de informacab, a revista/dlCRO SISTEMAS,
ret if ique a colocacao feita pelo lei tor Ivo de
Aquino (publicada na Secao Cartas de MS
n° 25, com o tftulo "A funcab USR(X)").
pois o revendedor autorizado da Prologica
em Florianbpolis e na regiao sul de Santa
Catarina e nossa empresa (Entel Engenharia
de Telecomunicacdes Ltda.).
Jose Mendes Damian
Diretor Comercial da Entel
Gostariamos de informar que, por nosso
lapso, esquecemos de verificar que no texto
dos anuncios veiculados em MS de junho e
julho de 1983 constava a informacab de que
o Engenheiro Cesar da Costa era o coordena-
dor dos cursos de Tecnicos Especialistas em
Manutencab e Programacab de Minis e Mi-
cros de nossa instituicab educacional-Enge-
micro. Solicitamos a retificacab desta in-
formacab pois, desde marco de 1983, o
Engenheiro Cesar da Costa nab coordena
mais estes cursos.
Alex Damazio
Diretor da Engemicro
Agradeco ao pessoal de MICRO SISTE-
MAS por ter publicado o meu anuncio na
Secao Clubes, o qual esti dando um retorno
acima do esperado, evidenciando mais uma
vez a penetracab da revista no meio micro-
i nf ormatizado.
Rodrigo Cesar Santiago
Belo Horizonte-MG
objet ivo desta e parabenizar essas con-
ceituadas entidades, ou seja, a Micromaq e a
MICRO SISTEMAS, pela inigualavel ideia de
proporcionar a n6s, I eft ores, a maravilhosa
oportunidade de sermos con temp) ados com
um equipamento como o Color 64: a< esti
um exemplo de ilimitada consideracab.
O meu desejo sincero e que o Senhor
Deus conceda, a cada um de voces, mente
aberta e o maior angulo de visao possivel, a
f im de que o sucesso e a funcionalidade seja
uma constante no desempenho diario dessa
tab honrosa tarefa, que e fazer com que a
nossa Nacab seja embalada pelos bracos da
Informatica.
Valmir Rodrigues da Silva
Sao Bernardo do Campo-SP
c
COR NO MAXXI
J
{...) Ha uns meses atras comprei o micro-
computador Maxxi, da Polymax. proble-
ma & que nab consigo entrar com cor nos
meus programas graficos. Entrei em contato
cdm a loja e depois com o fabricante, e am-
bos me disseram que & problema do modula-
dor de RF, que nab funciona em deter mina-
dos lugares.
Fiz modificacoes na minha TV para eli-
minar o modulador, e mais uma vez fiquei
decepcionado, pois, mesmo sem modulador.
r-,
executivos de alto nivel.
CPU com 48 k, drive, monitor, impressora Monica da Elebra. 564 OKHTs
■^1 V^^^B^ EntregamosemtodoBrasilpeloreembolso Vang.
^J[ Kfel ^^1 CX)PA0ARANA- Aberta diariamente das 10 as 20 horaseaossabadosdas
10asl5horas.
GLOBUS
Ideal para qualquer
microcomputador
existente no
mercado.
Impressora M-100 X
de 132 colunas
Impressora matricial de impacto com
velocidade de 100 cps e impressio de
132 colunas.
Finalmente em produto
Nacional com performance
inigualavel:
• Velocidade real de 100 cps
• Cabega de impressao
de 9 agulhas
• Sustentador de cabega de
impressao em duplo eixo
• Capacidade grafica
• Flexibilidade de software
• Interface dupla:
Paralela e Serie
• Compatibilidade Epsom e
pacotes Apple II
A Globus produz linha
completa de impressoras para
todas as aplicagoes, alem de
dispor de pegas de reposigao
para entrega imediata.
®
— GLOBUS DIEITOL S.P.
(CXJIWkMENTOS KWtfWCOS
MUITO MAIS DO QUE MAQUINAS
SIGNIFICASERVIQO
Matriz e Fabrics: Rua Isidro Rocha, 1057
CEP 21241 - Tel.: 372-4385 - Telex (021) 31991
GLDG - BR - Vigario Geral - RJ - Brasil
Filial Rua Stella. 51 5 - Bloco H - Grupo 21
CEP 0401 1 - Tels.: (01 1) 231 -2586/571-4642
Vila Mariana - S3o Paulo - SP
VASTA REDE DE DISTRIBUIQAO
nab consigo entrar com cor. Comprei o com-
putador baseado em propagandas (como a
da revista MICRO SISTEMAS), onde, alem
de outras caracter (sticks apresentadas, enfa-
tiza-se a disponibilidade de 16 cores em mo-
do grafico baixa resolucao, selecionavel por
software, e mais seis cores quando em modo
gr3fico alta resolucao funcionando no siste-
ma Pal-M.
Espero contar com a revista para que es-
ta carta nao f ique somente como um apelo.
Nabor dos Santos
Campo Grande-MS
Como e de praxe, enviamos sua carta pa-
ra a Polymax, e esta nosdeu as seguintes In*
formacoes: "O Maxxi e capaz de gerar cores
em dois sistemas:
1. Sistema Pal-M: verde, azul e seus deriva-
dos.
2. Sistema N linha: verde, azul, vermelho e
seus derivados.
O sistema de cores adotado pelo Brasil e
o Pal-M. O sistema de cores do nosso micro-
computador e o NTSC (sistema utilizado
nos Estados Unidos), adaptado ao sistema N
linha e Pal-M para que possa ser utilizado
nos televisores nacionajs.
O sistema N linha e o sistema NTSC ope-
rando com cristal Pal-M na freq'uAncia de
3,57561 1 MHz. O sistema Pal-M gerado pelo
Maxxi foi acrescentado para o usuario nao
ter o trabalho de modificar seu televisor pa-
ra o sistema N linha. A desvantagem da nao-
mod if icacao 6 a falta da cor vermelha no tele-
visor. O Maxxi no sistema Pal-M nao gera a
cor vermelha.
Quando o computador nao i rar as cores
no televisor, a causa mais provfr il e o cristal
oscilador estar fora da f reqUfincia de cor. Pa-
ra ajusta-lo, siga as seguintes instrucoes:
1. Remove a parte superior do Maxxi, reti-
rando os quatro parafusos de f ixacao que se
encontram na parte de baixo;
2. Na parte traseira do lado direito do Maxxi
existe uma abertura para as conexoes. Entre
a parte traseira e o painel metalico traseiro,
no centra, existe uma trava; localize-a visual-
mente e destrave-a;
3. Na parte frontal no lado de baixo do
Maxxi existem duas pequenas aberturas.
Com uma chave de fenda, destrave as travas
contidas nas aberturas;
4. Remova lentamente a parte superior da
caixa. Repare que o teclado tamb6m esta
f ixo a parte superior e o cabo de conexao do
teclado com a placa do Maxxi esta na parte
inferior ao teclado: todo cuidado sera ne-
cessario para nao desconecta-lo. Se voc£ qui-
ser desconecta-lo, certif ique se do modo co-
mo esta conectado para nao invertfi-lo na
hora da conexao. Levante a parte superior
da caixa ate a altura do painel metalico tra-
seiro, desloque um pouco para a direita at6
visualizar parte da placa no lado esquerdo.
Apoie a parte superior no pr6prio painel;
5. Conecte o cabo de video de seu televisor
no Maxxi;
6. Conecte a unidade de disco no slot 6, e
carregue o programa Color Demosoft para
gerar as barras de cores. Caso nao tenha a
unidade de disco, faca um programa grafico
com cores;
7. No lado esquerdo frontal da placa do
Maxxi, na posicao entre A1 e B1, existe um
capacitor variavel chamado trimmer. Com
uma chave de fenda pequena, ajuste-o fazen-
do movimentos para a direita ou para a es-
querda ate a cor aparecer no televisor. No
caso de aparecerem alguns caracteres irregu-
lares no televisor e das barras de cores nao
desaparecerem do video, continue ajustan-
do. Se, por algum momento, a condicao grA-
fica desaparecer do video e o programa pa-
rar, recomece todo o processo de ajuste des-
ligando o Maxxi, ligando-o novamente e car-
regando o programa.
Na borda esquerda da placa do Maxxi,
existem marcadas letrasde A ate FeosCIs
da placa sao contadosda esquerda para a di-
reita, sendo que o da esquerda e o N.1 e o
mais a direita e o N.1 4. Oriente-se por estas
marcas para localizar o CI.
Se as cores ainda nao aparecerem, veri-
fique na posicao F14 da placa do Maxxi, no
lado direito do CI 74LS259 se o Resistor
6 de 1 K. Se nao for, substitua-o.
Observacao: os valores dos resistores sao
representados por cores, por exemplo:
1 K = marram, preto, vermelho e dourado,
sempre nesta sequencia, sendo sempre a ul-
tima cor metalica. Se nesta tentativa as cores
ainda nao aparecerem, comunique-se conos-
co que teremos o maior prazer em aten-
d«-lo."
Antonio Carlos Masotti
Dir.de Planejamento e Marketing da Polymax
c
SUGESTOES
3
Gostaria de propor a Redacao de MS a
organizacao de um curso de ALGOL, para
divulgar esta linguagem. Tambe'm gostaria
que a revista publicasse a sugestao para que
algumas empresas ou cursos fizessem uma
reportagem sobre o hardware de todos os
micros existentes no mercado, para que as
pessoas que nao tern possibilidade de com-
prar um micro possam conhecS-lo por den-
tro.
Ben-Hur Monteiro Barizon
Rio de Janeiro-RJ
Gostaria de fazer uma sugestao: voces
poderiam publicar uma materia na qual es-
tabelecessem uma correspondengia entre os
micros nacionais e os estrangeiros, ou seja,
os compati'veis estrangeiros com os nacio-
nais. Estou certo de que sera* de grandeaju-
da para os novos e pequenos usua>ios, prin-
cipalmente na escolha dos programas.
Rodrigo M. de Andrade
Rio de Janeiro-RJ
Sou estudante de Engenharia e apaixonado
por micro. Estou realmente satisfeito com a
qualidade da revista, mas tenho uma suges-
tao: por que voces nao publicam reporta-
gens sobre cada tipo de BASIC de cada mi-
cro?
Jos6 Roberto Pereira de Santana
Rio de Janeiro-RJ
Queria sugerir uma secao so de jogos, ou
uma publicacao especial de jogos que, acho,
6 o desejo de muitos outros leitores de MI-
CRO SISTEMAS.
Marcos K. Watanabe
Guarulhos-SP
Sugiro a implantacao de uma materia
que tivesse um glossa>io de termos usados
em microcomputacao, para servir como fon-
te de consulta para todos os leitores.
Jos6 Roberto Pereira de Santana
Rio de Janeiro-RJ
Envie suas sugestoes para MICRO
SISTEMAS. Elas serao anotadas em nossa
pauta e procuraremos, na medida do m
possfvel, viabiliza-las.
12
MICRO SISTEMAS, janeiro/84
nao importa o tamanho de seu problema,
nds temos a solucao na medida exata !
• LINGUAGEM BASIC
• 16KDEMEMORIA
• VELOCIDADE DE
TRANSFERENCE INE-
ZES MAIS RAPIDA
CP-300
• MODULAR
• LINGUAGEM BASIC
• 48KDEMEMORIA
• COM PAT I'VE L COM
SOFTWARE DO CP 500
LINGUAGEM BASIC
48KDEMEM0RIA
ATE 4 DRIVES
SAIDA PARALELA SE-
RIAL
JA AT
LVENDA/r
VELOCIDADE 100 CPS
MATRIZ9x 7
INTERFACE:
PARALELA
SERIAL
S-600
MICRO:
LINGUAGENS COBOL.
BASIC E FORTRAN
64 K DE MEMORIA
DUAS UNIDADES DE
DISCO
IMPRESSORA:
• VELOCIDADE 130 CPS
• MATRIZ 7x9
• 132COLUNAS
• ORIGINAL + 5 COPIAS
P-720
VELOCIDADE 200 CPS
MATRIZ 7x9
INTERFACE:
PARALELA.
SERIAL
TRACADOR
GRAFICO
• 8PENAS
• Area de tracado
10 x 15 POL.
• INTERFACE RS232
ACESSORIOS
SOFTWARE • MESAS »DIS-
QUETES • ARQUIVOS •
FORMULARIOS CONTI
NUOS • ESTABILIZADORES
DE TENSAO • UNIDADES
DE DISCO FLEXlVEL • ETC.
APROVEITE!
PROMOCOES ESPECIAIS •
FINANCIAMENTO • LEA
SING •CONSORCIO «CAR
TOES DE CREDITO: CREDI
CARD. NACIONAL, ELLO.
filcres
Filcres Importapao a Representapoes Ltda.
Rua Aurora. 165 - CEP 01209 - Sao Paulo - SP
Telax 1131298 FILG BR - PBX 223-7388 - Ramais 2.4.
12. 18, 19 - Diretos: 223-1446, 222-3458. 220-5794 a
220-9113 - Reembolso - Rama! 17 Direto: 222-0016 - 220-7718
Se voce se julga com coragem e capacidade para garimpar dias a fio, eis aqui
sua grande chance. Mas lembre-se de que tudo vai depend er de sua sorte e inteligencia
Aventuras
em Serra Pelada
Renato Degiovani
e voce achou que um pas-
seio pela Selva Amazoruca
era tudo, pode ir se prepa-
rando, pois nessa aventura
voce sera" um ineansavel
ganmpeiro em busca do ouro e da for-
tuna, mas antes sera preciso algum
trabaiho de digitacao.
Comece pelo "Aventuras na Selva"
(MS n9 23). texto dizia que se gra-
vasse em fita o Sistema Operacional e o
Monitor. Pois bem, carregue-os no com-
putador e proceda as alteracdes constan-
ts na listagem 1. Essas modificacoes
serve m para tornar o Sistema Operacio-
nal ainda mais poderoso e com ele exe-
cutar algumas acoes bastante comple-
xas.
Feito isso, digite RUN 9000 e come-
ce a operar a entrada de dados do Moni-
tor. Quando ternunar, elimine o Moni-
tor, apagando as linhas de 9000 a 9070.
A partir daqui, NUNCA MAIS use RUN
nem CLEAR, pois se o fizer, mesmo aci-
dentalmente, todos os dados dos direto-
nos estarao perdidos e o programa para-
ra" com a indicaclo 2/1 1, ou seja, varia-
vel nao defimda (O) na lmha 1 1 . Daqui
na~o hd saida e voce tera que recomecar
todo o trabaiho.
Ainda quanto a digitacao. va sempre
com muita calma e certifique-se de es-
tar digitando tudo corretamente. Erros
de digitacao sao f'aceis de ocorrer, mas
dificeis de ser localizados.
14
Listagem 1
1 REPI SIST. OPERACIONAL - V.2
407 LET U$=U$( TO 2) + "R"*B$(2)+
3 REPI P1ICR0 SISTEPIAS - 1984
"DR"
6 SAVE "SERRA PELADA"
408 GOTO 120
20 IF NOT INT (RND*55) THEN GO
420 IF NOT CODE B$(2) THEN GOTO
TO 800
56
21 IF T(l)<204 THEN GOTO 30
602 IF U$(11)="B" THEN GOTO 650
22 PRINT AT 6,1; "INFELIZP1ENTE
603 PRINT " EIIIII QUE EXP
GARIPIP0 DE SERRAPELADA F0I FEC
L0SA0 •••",,," NAO DEl/E TER SO
HAD0.
BRADO nuITA COISA NO LOCAL."
AGORA VOCE TE
604 FOR A=l TO
RA QUE TENTAR NUPIAOUTRA TEPIP0RAD
605 IF A=ll THEN GOTO 607
A 0U PR0CURAR UPI NOVO GARIPIPO.
606 IF U$(A)=U*(11) THEN LET US
(A)=" »
607 NEXT A
E UPIA PENA P1A
S A VIDA E ASSIPI PIESPI0-"
608 LET U$(ll)=" ■
23 PRINT AT 20, 0; "PRESSIONE: ",
609 GOTO 20
"■OUTRA TEriP0RADA","BN0V0 GARIRP
650 PRINT "ACHO QUE ISSO E FI
0"
PI. FOI BOP! ENQUANTO DUROU-..",,,
24 PAUSE 4E4
," DA PROXiriA MZZ NAO BRINQUE CO
25 CLS
n EXPLOSIVOS."
26 IF INKEY$="N" THEN GOTO 7
651 STOP
27 G0SU8 5000
800 IF NOT T(3) AND NOT T(4) TH
28 LET T(1)=0
EN GOTO 30
29 GOTO 20
801 PRINT ,,,," 00000P5....",,
55 IF C<LEN U$ THEN GOTO 51
,,"""B0CA DE TRAIRA"", HAIOR L
220 LET 8=B*1
ADRAODAS PARAGENS ATACOU NOVAHEN
221 IF A=P THEN RETURN
TE. FICAHOS A ZERO."
222 GOTO 262
802 LET T(4)=0
803 LET T(3)=0
351 LET T(A)=T(A)*C0DE U$(B*1)-
K
804 LET U$(31)=" "
805 LET US (9)=" "
401 IF B$(2)="=" OR B$(2)=" + " T
HEN GOTO 405
806 LET R=R-1
402 GOTO 420
807 GOTO 20
405 IF 85(2)="+" THEN LET T(3)=
406 IF B$(2)="=" THEN LET T(4)=
eliminar as linhas: 102, 410, 50
0, 501, 502, 503. 504.
MICRO SISTEMAS. janeiro/84
T abela de Dados do Monitor
obs:
3
.5Uf1A E3CADA
um
sspago
4
D5UP1A CORDA
5
■ RELOGIO
6
34UW TCLilFONE
NUflERO
7
D4UN C1ARTEL0
8
74UP1 POSTE
1
..S..B
.-:£.«
-H?$./
:&::
)<.A.0
•D. + .1
a. .o.Q
<J|Q.3
9
-1DINHEIR0
2
3
4
5
6
7
8
9
10
10
3NEU
11
D1DINAP1ITE
12
E5UMA CHAVE
13
LSUfiA MALA
14
.1INF0RP1AC0ES
15
.12579384
16
.12861745
17
P4UM nACACO
18
19
.5UNA PENEIRA
P4UP1 CV.'O
11
- -B.Q-
20
B5UNA FACA
12
.-/B5.
21
-1GAS0LINA
13
«.*»*; *
22
ISUnA GARRAFA
14
..,/?.
23
84UP1 BALDE
15
*; ,; (*
24
I4UM COPO
16
,0.0-
25
04UP1 REVOLVER
17
•i..>.
26
D5U'!5 PR"GOS
18
02..<.
27
.30 ALErVAO
19
13. -D-
2e
81CAIX0TE5
20
-.2-+.
29
.1TAB0AS
21
GLB-K.
30
05UP1A PICARETA
22
31
.10UR0
23
..7.D.
32
R4UP-. CADERNO
24
69G0.-
33
.4 UN BARRANCO
25
91...
34
.30 DONO
26
78.. I.
35
34UP1 I5TUEIR0
27
..>G-.
36
.5UHA PORTA
28
37
N4U
29
Q
30
31
...F-.
32
ENO...
NUriERO
33
P4A7-.
34
..P:5.
1
£NORTE
35
2
SSUL
36
3
. TE
37
-B...4
4
70E3TE
38
4-..R.
5
(ENTRE
(SUBA
39
....30
6
40
7
)SAIA
)DESCA
41
FQ7.i«i-
8
42
43
44
.G.H..
O.+.C.
9
10
11
>PEGUE
<SOLTE
riCXAfll
12
♦ROUBE
NUMERO
13
-QUEBR
14
•PROCU
1
.4UI"1 LOCAL
15
/LIGUE
2
.4U!"1 CAPIINHAO
16
;DESLI
17
IB
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
,DESAP1
•AMARR
0COLO3
1TEM0S
2FACA
3HATE
4ABRA
5FECHE
2CAVE
6PULE
7DESMA
BPUXE
BDE
0PONHA
6SALTE
■
/ACENO
CHA
>5EGUR
2C0N5T
1TENH0
I
<LARGU
CTEH
•ACHE
-CCRTE
-
DHORAS
■
3PECA
8 L=H25
9 fllPHKS
10 FJIPHSS
NUC1ER0 DE ACOES: 105
MO U WE I
IS: 10
-
D4
D4
L=H + S
K=H = S
l=h<:.
1
2
3
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
■£611
D.n(0:£D9
>(E(0).B(F
=(n([ :
-(ri(K:F
W?tD8
E(P1(3I«U?.Y =
ZZB=R(Q(l)F
F=X?-D?
ZZD(
2S33-D)
G+JQ/Pl+neY;
ZZC*C0O?<K?F
2+ruD>
> + E+3KBB-fF
>0E0B0F
/$3C-n*T*C D =
>»E»B*F
H(E(X?BV?Y4
ZZB(X?7L)D;
H?E?X?8V?Y6
ZZB?X?7K(F
ZZR=D,
ZZR=T=
>?E?N(*B?F
= ?p:?T?D0
I£nDr'.10=2D3I
EENE35»D5
♦(E(3I6DD
+?E?B?K(F
>>E>N**B>F
ZZR*C=
♦>E>B>K*F
H>E>X?8V?Y3
ZZB>X?7K*F
•9NCR9YN
ZZK-HHB=DQ
♦=35B0-CU?£YL
ZZRCQ:F
=0P10T0DS
ZZB-X?7K;F
ZZB9X77K/F
>2E2B2F
ZZBDX?7K»F
>3E3B3F
= 3fl3T3D$
>4H6D7
ZZ11K0F
>7E7B7F
51
52
53
54
55
56
57
5B
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
64
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
LIB
101
102
103
104
105
>EEEDB
♦EEEDB
HDEDX78V7YS
=DnDTDD8
>DEDN*+BDF
♦DED3D6DB
=2m2T2DS
»9E9N/-B9F
=9P19T9DE
♦9E9JD6D*
H9E9X78V7Y0
=1FI1T1D$
>BEBDF
sBEBOF
-BEBRBQCF
>CECBCF
=<376P<D$
=+M*T*D5
= :fl:T:D$
>:E:B:F
0GP1:U«K>C:F
>6E6B6F
=6H6T6DS
>8E8D*
H8E8DG
♦8E8D*
aCDCTCDS
3H3D6D8
3A3I6DB
>-E-N;*B-F
H-E-X7BV7YP
♦-E-3D6D*
>1E1B1F
/-E-0,HL/5?F
. IB/F
♦ /E/P -
=/n/T/D5
4/ VT/O03YU
>5E5B5F
>IEIK,BIF
•INITIOS
E*N*3P*J?£YG
r»D$
>FEFBFF
=FHFTFD$
4FNFTFDK
3;3nldn
K.33BDN
K.33B00
43013K1F
b7*I7T'
=5N5T5DS
-=35?DB
-7P17T7R7F
-5N5T5R5F
Teiminado o trabalho, digite a Tabe-
la de Mensagens e grave tudo em fita. As
instrucocs de operacao do programa sao
as mesmas do "Aventuras na Selva".
OJOGO
Sena Pelada e hoje, sem duvida ne-
nliuma, o ganmpo mais famoso do
Brasil e a nossa aventura tentard repro-
duzu uma "busca ao tesouro" a partu
de uma dada histona.
"Joao dente de ouro", um famoso
garimpeiro, certo dia encontrou, num
dos barrancos de Serra Pelada, uma pe-
pita pesando algo em torno de 70 qui-
los. O ganmpo todo foi agitado por uma
febre de festejos e, as 3 horas da manha
do quarto dia, debaixo de um terrivel
temporal, "Joao dente de ouro" sumiu.
Uns dizem que ele foi morto quando
tentava sair de Serra Pelada por uma es-
trada de terra, mas outros afirmam que
ele morreu num desabamento provoca-
do pelas chuvas. De certeza so ha - um
fato: a grande pepita, que foi logo apeh-
dada de "Dmda Externa", devido ao
seu tamanho, nao saru do ganmpo e es-
\i a espera de que alguem a ache.
DICAS
• Quando voce estiver a procura do ou-
ro e quiser que o computador cave, use
a acao GARIMPE nesse LOCAL.
• Se voce quiser perguntar algo ao mi-
cro, lembrc-se sempre de terminar a fra-
se com uma interrogacao.
• Voce podera\ a qualquer momento,
ser assaltado e ficar sem ouro e sem di-
nheiro. Nao se desespere e continue ten-
tando.
• micro nao sabe quanto ouro ele
carrega, mas voce pode perguntar
QUANTO DINHEIRO ele esti canegan-
do.
• limite de objctos carregados pelo
micro pode vanar em algumas circuns-
tancias: poitanto. nao se assuste se ora
ele carregar 5 objctos ora 6 ou 7 ou 4.
• Nao se assuste com algumas respos-
tas do computador; ele foi programado
para ser um pouco genioso e nem sem-
pre obedecer corretamente as ordens.
• E lembre-se de que a resposta "ISTO
NAO £ POSSfVEL" nem sempre quer
dizer que a acao nao pode serexecutada.
Renato Degiovani 6 formado em Comunica-
qSo Visual e Desenho Industrial pela Pontifi-
cia Universidade Catdlica do Rio de Janeiro.
Ha" mais de um ano utiliza microcomputado-
res para ca"lculos na 4rea em que atua.
»
MICRO SISTEMAS, janeiro/84
15
AVENTURAS EM SERRA PELADA
1010 PRINT "0 REL0GI0 ESTA QUEBR
ADO."
1015 RETURN
1020 PRINT "E APENAS ";0S(E,3 TG
) ,"coriuri."
1025 RETURN
1030 PRINT "ELE ESTA CON UP) PNEU
FURADO."
1035 RETURN
1040 PRINT "NOS TEFIOS ";T(4)*372
45;" CRUZEIROS."
1045 RETURN
1050 PRINT "NENHUP1 TOSTAO."
1055 RETURN
1060 PRINT "COPIO EU DEVO FA2ER I
SSO ?"
1065 RETURN
1070 PRINT "EU NAO SOU BORRACHEI
RO."
1075 RETURN
1080 PRINT "HAS EU 3A FIZ ISSO."
1085 RETURN
1090 PRINT "ELE NAO QUER PEGAR."
1095 RETURN
1100 PRINT "0 OONO NAO l/AI G05TA
R DISSO E ELE E P1UIT0 FORTE."
1105 RETURN
1110 PRINT "QUE CAP1INHA0 ?"
1115 RETURN
1120 PRINT "AQUI NAO HA NINGUEPI
QUE C0P1PRE ISSO."
1125 RETURN
1130 PRINT "DE QUEPI ?"
1135 RETURN
1140 print "tue bopi negocio fize
pios heipi ?••
1145 RETURN
1150 PRINT "OK, MAS A GRANA ACAB
OU."
1155 RETURN
1160 PRINT "ELE E5TA C0P1 ALEHA
0."
1165 RETURN
1170 PRINT "ELA TEH UM HETRO E PI
EIO."
1175 RETURN
11B0 PRINT "SEP1 UPIA ESCADA NAO V
AI SER POS-SIVEL."
1185 RETURN
1190 IF INT (RND»15)=3 THEN GOTO
1196
1191 PRINT "ATE AGORA NAO ACHE I
NADA."
1195 RETURN
1196 PRINT ">>> ACHEI... ACHEIII
IIIIH",,,"AQUI ESTA ELA, A FAP10
SA PEPITA ""DIVIDA EXTERNA"".",
,,,"COflO ELA E GRANOE*.
1197 LET T(3)=T(3)*1523
1198 LET US(31)="B"
1199 RETURN
1200 IF INT (RND»5)<>3 THEN GOTO
1191
1201 PRINT "ACHEIII", ,,,"NAO E U
MA PEPITA GRANDE HAS DEVEVALER A
LGUMA COISA."
1202 LET T(3)=T(3)*INT (RND*5)+3
1203 LET UJ(31)="B"
1205 RETURN
1210 PRINT "UPI DESABAflENTO ESTA
BLOQUEANOO A PASSAGED NESSA DIRE
CAO."
1215 RETURN
1220 PRINT "OK, P1AS IP1P0ST0 SO
BRE A VENDAFOI 3EP! ALTO."
1221 LET US(31)=" "
1222 LET T(4)=T(4)*T(3)
1223 LET T(3)=0
1224 LET U8(9)="l"
1225 RETURN
1230 PRINT "QUE ATITUDE ESTUPIDA
ESSA,NAO 7"
1235 RETURN
1240 PRINT "DE ONDE ?"
1245 RETURN
1250 PRINT "E Un FORD 1930."
1255 RETURN
Tabela de Mensagens
1260 PRINT "SAO ";T(1)-INT (T(l)
/24)*24;" HORAS DO DIA ";7+INT (
T(l)/24)
1265 RETURN
1270 PRINT "ACHEI QUE VOCE QUE
RIA."
1275 RETURN
1280 PRINT "VOCE FICOU TALUCO ?"
1285 RETURN
1290 PRINT "ELES COLOCARAPI GUARD
AS PARA A PROTECAO DOS CAIXA5-"
1295 RETURN
1300 PRINT "ESSA PODE SER UP1A AC
AO P1UIT0 PERIGOSA DEVIDO AS CIRC
UNSTANCIA3."
1305 RETURN
1310 PRINT "SAO PREGOS DE CABECA
CHATA."
1315 RETURN
1320 PRINT "ELES SAO P1UIT0 PESAD
OS."
1325 RETURN
1330 PRINT "PARECE QUE HA UNA LE
I CONTRA PORTE DE ARPIAS NO GAR
IflPO."
1335 RETURN
1340 PRINT "ACENDER C0P1 QUE ?"
1345 RETURN
1350 PRINT "OS GARINPEIROS FICAR
AO FURIOSOS"
1355 RETURN
1360 PRINT "ELA OA ESTA ABERTA."
1365 RETURN
1370 PRINT "3ECRETARIA DE NINAS
- 2579384 CAIXA EC0N0P1ICA
- 2861745"
1375 RETURN
1380 PRINT "AQUI NINGUEPI SABE DE
NADA."
1385 RETURN
1390 PRINT """SE SR DESEZJA TEL
EFONAR PODE UTILIZAR A CABINE"".
it
1395 RETURN
1400 PRINT "NINGUEPI ATENDE."
1405 RETURN
1410 PRINT "ESTA OCUPADO."
1415 RETURN
1420 PRINT "A PORTA ESTA FECHADA
• "
1425 RETURN
1430 PRINT "PO CARA, QUE SUFOCO,
P1AS ACHO QUE CONSEGUI PEGAR UPI
POUCO."
1435 RETURN
1440 PRINT "OK, P1AS NAO DEU NEPI
TEP1P0 DE SOLTAR E ALGUEP1 CARRE
GOU CON TUDO."
1445 RETURN
5000 PRINT " ****•**»*♦»***♦♦»
,»»,*♦»*» *»♦♦♦, SERRA PELA
DA »♦»*** #*•*•*•**#***•
*********",,,,,,," HOJE E DIA
7 E VOCE TEH QUE ACHAR A FAP10SA
PEPITA ""DIUIDA EXTERNA"" PARA
TORNAR-SE P1ILI0NARI00U CONTINUAR
POBRE. ",,,,," A TENPORADA DE
GARIP1P0 TERP1I-NA AS 12 HORAS DO
DIA 15, QUANDOENTAO TODOS OS GAR
IMPEIROS SAO RETIRADOS DOS BARR
ANCOS. ",,,,," BOA SORTE E QUE
SEUS SONHOS SE REALIZED...",,,,
ii it******************************
*n
5001 RAND
5002 LET P=24
5003 I FT E = S
5004 LET H3="N0S ESTAP10S "
5009 RETURN
5100 PRINT HS;"NO BARRANCO ND';P
5105 RETURN
5200 PRINT H8;"N0 FUNDO DO BARRA
N-CO NE";P-10
5205 RETURN
5210 PRINT HS;"EI*1 FRENTE A UPI BA
R-RACO VELHO."
5215 RETURN
5220 PRINT HS;"DENTRO DA AGENCIA
DA CAIXA EC0N0P1ICA."
5225 RETURN
5230 PRINT H5;"PERT0 DE UPI ARP1AZ
EP1DE SECOS E P10LHAD0S."
5235 RETURN
5240 PRINT "ESTA E A PRACA CENTR
AL DE SERRAPELADA."
5245 RETURN
5250 PRINT "AQUI E FAP10S0 BECO
DAS P1ARGA-RIDAS,0NDE 0C0RRERAP1
UARIAS P10R-TES E ASSALTOS. ", , , ,"
HA TAP1BEP1 UP1A PORTA A LESTE."
5255 RETURN
5260 PRINT H$;"EP1 FRENTE AO BAR
D0ALEP1A0."
5265 RETURN
5270 PRINT "ESTA E A ESTRADA UEL
HA DO GARIP1P0. HA P1UIT0 TEPIPO QU
E ELA NAO E UTILIZADA."
5275 RETURN
5280 PRINT "NESTE LOCAL HA UP1A F
ONTE ARTE- SIANA QUE ABASTECE
GARIP1P0 DE SERRA PELADA."
5285 RETURN
5290 PRINT HS;"DENTRO DO CAP1INHA
0."
5295 RETURN
5300 PRINT H3;"DENTR0 DO ARP1AZEPI
• AQUI ELES UENDEPI DE TUD0:C0P1ID
A,ARP1AS,FERRAP1ENTAS E BEBIDAS."
5305 RETURN
5310 PRINT HS;"NUP1 P1ATAGAL CHEIO
DE ESPIMHOS."
5315 RETURN
5320 PRINT H3;"N0 AEROPORTO LOCA
L."
5325 RETURN
5330 PRINT HS;"NUP1 CRUZAP1ENT0. "
5335 RETURN
5340 PRINT H5;"EP1 FRENTE DA AGE
N-CIA DA CAIXA EC0N0P1ICA."
5345 RETURN
5350 PRINT HG;"DENTRO DO BAR DO
ALEP1A0. POR AQUI TEP1 UNS TIPOS
QUE PARECEP1 BANDIDOS."
5355 RETURN
5360 PRINT HJ;"DENTRO DA CABINE*
ii
5365 RETURN
5370 PRINT H ; "DENTRO DO BARRACO
VELHO. HA UP1A PORTA PERTO DA 3A
- NELA, AO SUL."
5375 RETURN
5380 PRINT "AQUI E ACAP1PAP1ENT0
PRINCIPAL DOS GARIP1PEIR0S. ALGU
NS AINDA ESTAO D0RP1IND0 E P1AIS A
FRENTE FI-CA AP1BULAT0RI0. "
5385 RETURN
5390 PRINT H.; "DENTRO DO POSTO T
E-LEFONICO."
5395 RETURN
5400 PRI | PISTA DE POUSO
5405 RETURN
5410 PRINT H$;"EP1 FRENTE DO POST
TELEFONICO DA CIDADE."
5415 RETURN
5420 PRINT "AQUI E FERRO VELHO
• EXISTE P1UITA COISA INTERESSA
NTE ESPALHADA NESSE LOCAL."
5425 RETURN
5430 PRINT "ESSA E A ESTRADA QUE
LIGA A CI-DADE AO GARIP1P0. HA U
PI CAP1INHA0 PARADO NO AC0STAP1ENT0
• "
5435 RETURN
5440 PRINT HS;"NO AP1BULAT0RI0. "
5445 RETURN m
16
MICRO SISTEMAS, janeiro/84
CAMPUSWARE
O maior e melhor catalogo em livros de computacao!
Aqui, uma selecao especial para voc£.
COMO LIDAR COM COMPUTADOR
Henry C. Lucas Jr.
1983- 160 pp.
Informal bate-papo com o lei tor, que responde
as perguntas feitas pelo pessoal leigo envoi vido
no processamento de informacoes. Os conselhos
e sugestdes abordam situacdes retiradas de am-
bientes comerciais do dia-a-dia, e cobrem tanto
os procedimentos basicos de operacao, quanto
as aphcacoes criativas dos microcomputadores.
MICROCOMPUTADORES PARA
APLICACOES COMERCIAIS
W. Harden Jr.
1983 -260 pp.
Conheca um microcomputador e suas aplicacdes
comerciais antes de se decidir por sua escolha e
aquisicao: componentes dos sistemas comerciais
de pequeno porte, perigos a evitar, vocabulario
espAcializado e ate mesmo um pequeno curso
de linguagem basic.
TfTULOSEPRECOS
1 • COMO LIDAR COM O COMPUTADOR
Cr$ 4.030,00
2 • BASIC PARA MICROS PESSOAIS
CrS 6.240.00
3 • IMPLANTACAO DE MICROS E
MINICOMPUTADORES
COMERCIAIS
CrS 5.390.00
4 • MICROCOMPUTADORES PARA
APLICACOES COMERCIAIS
CrS 7.440,00
5 • FUNDAMENTOS DE
PROCESSAMENTO DE DADOS
CrS 6.210,00
6 • GUIA DE LINGUAGENS DE
COMPUTADORES
Cr$ 4.210.00
j«pfcu*hirtntafilho
BASIC
BASIC PARA MICROS PESSOAIS
Jorge da Cunha Pereira Filho
1983 - 232 pp.
Importante ap resent acao da Linguagem Basic,
de forma extremamente didatica. Cada capitulo
traz um guia de estudo dirigido e muitos oxer-
cicios, fornecendo ao leitor as informacoes para
a perfeita utilizacao em microcomputadores
pessoais, bem como os de teclado piano.
IMPLANTACAO
~!OSl
uIADORES
r «PCIAlS
PJUMGHT
IMPLANTACAO DE MICROS E
MINICOMPUTADORES COMERCIAIS
P. A. Knight
1983- 120 pp.
Um guia seguro para os responsaveis pela insta-
lacao de sistemas de computacao, estelivro ser-
vira de ajuda nos aspect os mais dif (ceis e fun-
cionara como uma Lista de Verificacao para
que nada seja esquecido.
WtLSON T. PRICE
Fundamentos de
Processamento de
DADOS
FUNDAMENTOS DE
PROCESSAMENTO DE DADOS
Wilson T. Price
1983 -200 pp.
Uma introducao concentrada e condensada ao
processamento de dados que procura reduzir a
quantidade de informacoes a respeito, preser-
vando apenas os conceitos mais importantes e
os itens basicos mais significativos.
Guia de Linguagem de
COMPUTADORES
Harry LHetns Jr.
EDITORA CAMPUS
GUIADE LINGUAGENS
DE COMPUTADORES
Harry L . Helms Jr.
1983- 122 pp.
Se voce precisa ou quer saber as diferencas en-
tre COBOL, FORTRAN e outras linguagens, es-
te livro e para voce. Cada capitulo apresenta
uma conhecida linguagem de programaclo; o ul-
timo contem um dicionario de palavras-chave.
CAMPUSWARE
FAQAAQUISEUPEDIDO
Assinale abaixo o(s) numero(s) correspondente(s) a(s) publicacao(6es) que deseja receber:
1
2
3
4
5
6
Assinale a sua opcab de compra:
^Cheque nominal a ATI-Editora Ltda. N? Banco.
AtencSo: Neste caso, faga o cheque com 10% de desconto sobre os precos mencionados e
deixe o porte por nossa conta.
I l Reembolso Postal
Envie o seu cupom ainda hoje para:
AT I- Editor a Ltda.
Rua Visconde Silva, 25
22281 Botafogo - Rio de Janeiro — RJ
Nome
Endereco
CEP
Neste jogo para os micros da linha TRS-80 modelo III, evite bater nas
barreiras e, ao mesmo tempo, faca com que seu adverser io nao super e as "barras'
Cidotron:
supere esta barm!
Ciclotron 6 um jogo de reflexos
e estratdgia. Dois jogadores
estabelecem uma verdadeira
perseguicao um ao outro, onde, ao
mesmo tempo que tentam evitar uma
colisao com as barreiras que cercam o
campo de acao do jogo, vao
construindo suas pr6prias barras para
encurralar o adversario. campo e"
fechado, nao tern por onde escapar e
somente um saira vitorioso, pois nao
existe empate.
Hendy Takeshi Yabiku
Cada um controlara" um ponto na tela,
que corre a uma velocidade constante,
sendo impossivel ficar parade Os
contadores que aparecem sao:
Ciclo, Jog. 1 e Jog. 2. Ciclo e" a
unidade de tempo do jogo e, cada vez
que um adversdrio bater na barreira, os
pontos acumulados em Ciclo passarao
automaticamente para o outro
jogador. Jog. 1 e Jog. 2 sao,
respectivamente, os pontos dos
jogadores um e dois.
Jog. 1 usa, para controlar seu ponto,
as teclas: "Q" para virar a esquerda e
"W" para virar a direita; o Jog. 2 usa
" < " para virar a esquerda e " > "
para virar a direita.
Hendy Takeshi Yabiku tern 15 anos e desen-
volve jogos nos micros compatfveis com o
TRS-80 Model os I e III e nos da linha Sinclair.
£ um autodidata e aprendeu BASIC apenas
atrav6s de revistas e livros.
18
MICRO SISTEMAS, janeiro/84
1 REM CICLOTRON
2 REM "O JOGO DAS BARREIRAS"
3 REM HENDY T. YABIKU
10 CLS: DEFINT A-Z: P=1500
20 INPUT"QUER VER AS REGRAS(S/N)
";C$
30 IF C$="S" THEN GOTO 1000
40 IF C$<>"N" THEN PRINT"NAO ENT
ENDI , TENTE DE NOVO" : GOTO 20
45 PRINT" APERTE QUALQUER TECLA
PARA COMECAR"
50 IF INKEY$="" THEN 50
55 J1=0: J2=0
60 CLS: A=55: B=44: C=l: D=58: E
=44: F=l: G=0
70 PRINT«),"Jog.l:";Jl: PRINT#25
"Ciclo:";G: PRIiriJie52, "Jog. 2: " ; J
2:
80 FOR 1=0 TO 127: SET (I, 3): SET
(127-1,47) : NEXT
90 FOR 1=3 TO 47: SET(0,50-I): S
ET(127,I) : NEXT
100 K=PEEK (14500) :G=G+1
110 IF K=2 THEN C=C-1 ELSE IF K=
128 THEN C=C+1 ELSE IF K=16 THEN
F=F-1 ELSE IF K=64 THEN F=F+1
120 IF C=0 THEN C=4 ELSE IF C=5
THEN C=l
130 IF F=0 THEN F=4 ELSE IF F=5
THEN F=l
140 IF C=l THEN B=B-1 ELSE IF C=
2 THEN A=A+1 ELSE IF C=3 THEN B=
B+l ELSE A=A-1
150 IF F=l THEN E=E-1 ELSE IF F=
2 THEN D»D+1 ELSE IF F=3 THEN E=
E+l ELSE D=D-1
160 IF POINT (A, B) THEN 200 ELSE
SET(A.B) i IF POINT(D,E) THEN 300
ELSE SET(D,E)
170 PRINT«1,G;: GOTO 100
200 J2=J2+G: PRINT#58, J2;
>=P THEN 400
210 PRINT4M60," JOGADOR 2 GANHOU
ESSA";: FOR 1=0 TO 1000: NEXT:
GOTO 60
300 J1=J1+G: PRINT«6,J1;: IF Jl>
=P THEN 450
310 PRINT«60," JOGADOR 1 GANHOU
ESSA";: FOR 1=0 TO 1000: NEXT:
GOTO 60
400 PRINT«60 , "JOGADOR 2 VENCEU"
;: FOR 1=0 TO 2500: NEXT: CLS; G
OTO 20
450 PRINT4M60, "JOGADOR 1 VENCEU"
;: FOR 1=0 TO 2500: NEXT: CLS: G
OTO 20
1000 CLS: PRINT"Neste jogo,voce
e seu adversario se"
1010 PRINT"defrontam nun carapo s
em saida,em que o "
1020 PRINT"objetivo e' fazer com
que o adversario bata"
1030 PRINT"em uma das barreiras,
que podem ser as que"
1040 PRINT "voces estao trancando
ou nas laterals do campo."
1050 PRINT: PRINT"Para controlar
use as seguintes tec las."
1060 PRINT: PRINT, "ESQUERDA" , "DI
REITA"
1070 PRINT" JOGADOR 1" , " 'Q' " , " 'W
■
IF J2 1080 PRINT"JOGADOR 2", "■<•","'>'
■
1090 PRINT: PRINT
1100 PRINT" APERTE QUALQUER TECL
A"
1110 IF INKEY$=" THEN 1110
1120 CLS: PRINT: PRINT
1130 PRINT"cada vez que seu adve
rsario bater,os pontos"
1140 PRINT "acumulados em 'CICLOS
• passarao para voce."
1150 PRINT"0 prlmeiro a alcancar
■;P;" pontos sera o vencedor."
1160 PRINT"Este limite de pontos
pode ser mudado,";
1170 INPUT"voce quer (S/N) ";C$: I
F C$="S" THEN 2000 ELSE GOTO 45
1180 IF C$<>"N" THEN PRINT"NAO E
NTENDI , TENTE DE NOVO" : GOTO 1170
2000 INPUT "Para quanto { 500 < PON
TOS<10.000 )";P
2010 IF P<500 OR P>10000 THEN 20
00
2020 GOTO 45
■ Software para Microcomputadores? I
So ha uma solucao inteligente!
I
BIBUOTECA BRASILEIRA DE SOFTWARE
Todas as categorias de Software
Diversoes
e Jogos
Pessoais
UsoCaseiro
Comerciais
Graficos
I
I E..., mais de 4000 originais
I
Voc.
Av.l
que voce pode retirar
e levar para
suacasaou
empresapara
usa-lo a vontade.
Para os principals
micros do mercado:
TK82, TK83, TK85,
TIMEX/SINCLAIR,
CP200, CP300, CP500,
Educacionais
Profissionais
Cientrficos
TRS80 Mod. Ill,
UNITRON, M AXXI,
Microengenho,
Apple e Similares,
Sistema 700 e Superbrain.
Voc* pode consurtar pessoalmanta os catalogos de Software ou solicitar mformacoes pelo Correto.
Brigadeiro Faria Uma, 1390 - 8? Andar - Cj. 82 - CEP 01462 - Tele.: (011) 814-0882. 813-6407 e 210-1251 - Sao Paulo - SP
J
MICRO SISTEMAS. janeiro/84
19
Winchesters,
aqui e la fora
Pouco a pouco con-
solidate no Brasil o
mercado de discos
magneticos ngidos com
tecnclogia Winchester
e os modelos menores,
de 5 1/4". ja estao sen-
do conectados a micros
pessoais do porte do
CP-500. o que ira em
breve aumentar a capa-
cidade de armazena-
mento externo desses
equipamentos para ate
20 Mbytes
Mas como estao es-
ses penfencos em ter-
mos de tecnologia, em
comparacao com o
mercado mternacional 9 Nos-
so colaborador Ulrick Kuhn.
engenheiro especiahzado no
assunto. visitou a III Feira de
Inlormatica. comparou os mo-
delos expostos e faz aqui uma
apreciacao do atual estagio
tecnologico brasilelro nesse
campo. em vista do que acon-
tece nos centros mais avan-
cados. e se arnsca a fazer
algumas previsoes para o fu-
ture
A tecnologia nacional de
discos segue as tendencias
mundiais. porem em ritmo
mats lento Analisando essas
tendencias. podemos ter uma
ideia de nossos futuros pro-
dutos O que nao podemos
estimar com precisao e a data
de sua dispombilidade.
O Winchester de 5 1/4 cau-
sou uma verdadeira explosao
no mercado amencano. sen-
do que as previsoes estima-
das de vendas para 1984 sao
de 2 milhoes de umdades pa-
ra os Winchesters de 5 1/4".
600 mil umdades para os de
8 e 100 mil unidades para os
drives de 14 Essa explosao
demografica dos Winchesters
foi responsavel pela padroni-
zagao e aceitagao da inter-
face ST 400/500. e o W 5 1/4
de hoje apresenta o seguinte
perfil: uma unidade com sfep-
per motor, com capacidade
de 5 a 15 MB e interface ST
400/500. Recentes anuncios e
lancamentos de unidades nes-
se segmento — com capaci-
dades de ate 80 ou 150 MB
e com maior performance,
utihzando voice coil e servo
— tambem preveem como in-
terlace standard o ST 400/500
texistem outras opcionais).
mesmo com a restngao de
menor rendimento de capaci-
dade (densidade linear) e
transmissao por causa da
taxa de 5 MHz
As tecnologias de voice
coil, cabegas magneticas thin
film e Whitney, medias (dis-
cos) tn-n film plated, novos
codigos de encodifigagao co-
mo o 2.7 RLL. atuadores voi-'
ce coil e gravacao vertical,
sao as responsaveis pelo
W5 1/4 com 150 MB. A Max-
tor (EUA). por exemplo, de-
senvolveu urn motor DC de
acionamento dentro do eixo
de discos que permite a mon-
tagem de um maior numero
de pratos na mesma unidade
Quando for possivel incorpo-
rar todas essas tecnologias
num unico produto — o que
ocorrera por volta de 1985 —
a capacidade de armazena-
mento devera chegar aos
500 MB
A interlace ST 400/500. em-
bora hoje predominante no
mercado. devera ceder lugar
a novos tipos. em drives de
melhor desempenho. com
maiores taxas de transmissao
e sem perda de confiabilida-
de. Uma dessas interfaces se-
ra provavelmente a ESDI (10
MHz), similar a ST 400/500.
porem com a transmissao de
dados em NRZ Poderao am-
da surgir drives com interface
SCSI (15 MHz) paralela de 8
bits.
Os drives de 8 e 14 deve-
rao no futuro chegar a 1 GB
ou mais e equiparao basica-
mente supermims e sistemas
medios e grandes O mercado
desses produtos. devido ao
segmento que atendem. sera,
sem duvida. menos expressi-
vo que o W 5 1/4 . Tais equi-
pamentos manterao por al-
gum tempo o padrao SMD,
com maior taxa de transferen-
ce. Interfaces intehgentes.
como o IPI ou o ISI, porem.
deverao equipar os produtos
de alto desempenho, que po-
dem ter ate mais de um atua-
dor (voice coil) para dimmuir
os tempos de acesso.
Industria de computadores
ja e lider no Japao
Desenvolvimento de tecno-
logia que acompanhe o setor
de producao. populanzagao
do uso do computador, maior
mcentivo a area de software,
integragao de tecnologia de
comunicagao com a de com-
putagao, avango dos compu-
tadores de quinta geragao e
apoio governamental ao setor
levou a industria de compu-
tagao no Japao a arrecadar
em 1982 cerca de 5 bilhoes e
700 milhoes de dblares. tor-
nando-a responsavel pela
maior parte do Produto Inter-
no Bruto do pais.
Este panorama da industria
de informatica japonesa foi
transmitido por Katamitsu Ko-
no. gerente gerai do CICC —
Center of the International
Cooperation for Computeriza-
tion, no I Cido de Conferen-
ces do Conselho Permanente
de Informatica da Associagao
Comercial do Rio de Janeiro
sobre o tema Aspectos Atuais
de Informatica no Japao O
evento se realizou no audito-
rs da Associagao. no ultimo
dia 9 de dezembro e contou
com o apoio da Digibras e do
JECC — Japan Electronic
Computer Company.
Katamitsu Kono dedarou
que a previsao para 1990 e
que a industria de compu-
tadores japoneses alcance a
cifra de 18 bilhoes e 900 mi-
lhoes de dolares. o que colo-
ca esse setor na vanguarda
da industria japonesa no ano
2000 Nesse contexto. a area
de software recebera total
pnondade ja que o hardware
alcangou um patamar bastan-
te elevado no Japao. Uma no-
va geragao de computadores
surgira na medida que sua
utilizagao seja diverstficada
Hoje no Japao cerca de
duas mil empresas se dedi-
cam a produgao de software,
mcluindo as autonomas e as
ligadas aos fabneantes. Ocor-
re um aumento acentuado no
numero de software-houses e
70° o dessas empresas sao pe-
quenas e medias. Os incenti-
ves governamentais nessa
area e o apoio de orgaos co-
mo o CICC e o JECC sao im-
prescmdiveis. assmalou Kata-
mitsu Paralelamente. tambem
existe um mcentivo por parte
desses orgaos para o desen-
volvimento de software pelo
usuario como forma de fami-
liarizacao com o equipamento
Em relagao aos micros pes-
soais. Katamitsu declarou que
atualmente no Japao so exis-
tem micros 'de 16 bits. Com
maior capacidade, esses com-
putadores passaram de sim-
ples instruments de lazer pa-
ra . maquinas tambem de
utilizagao comercial. deixan-
do de ser rotulados de pes-
soais
20
MICRO SISTEMAS, janeiro/84
O homem e a tecnica
As caracteristicas do com-
putador sao diamelralmente
opostas as do ser humano
Por isso. ambos se comple-
mentam E quando a maqui-
na invade campos de domi-
nio do homem. isso ocorre
porque a tecnologia sempre
foi desenvolvida sem que se
ftzesse antes um estudo cien-
tifico sobre o seu emprego.
Assim pensa o professor
frances Jean Warmer, uma
das maiores autondades mun-
Interface para
Olivetti ET121
A Daisy Wheel Elelromca
esta langando a interface DW
121 que. acoplada a maquina
de escrever Olivetti ET 121.
possibilita a sua utilizagao
como impressora. sem contu-
do interfenr na sua utilizagao
normal. A interface pode ser
ligada a qualquer micro com
saida serial RS232-C ou para-
lela Centronics. A DW 121 e
controlada por um micropro-
cessador 8085. tern buffer in-
terno de 2 Kbytes e possibilita
uma sene de recursos. tais
como negnto e subhnhamen-
to automaticos O endereco
da Daisy Wheel e Rua Anto-
nio Comparato. 200. Sao Pau-
lo — SP. CEP 04605. tel (01 1 )
532-0154
diais em Informatica e cria-
dor da metodologia de pro-
gramagao estruturada, que
recentemente veio ao Brasil
para mimstrar cursos sobre o
assunto.
A ilusao. bastante difundi-
da. de que o computador e
capaz de tudo, disse Warmer,
provem do fato de que. por
exemplo. o homem pode in-
ventar uma formula de cal-
culo que por vezes nem ele
proprio consegue executar
Mas a maquina que executa
essa formula, na verdade so
desenvolve um algontmo
(N.R.: um conjunto definido
de operacoes a ser executa-
das para levar a algum re-
sultado desejado). ela nao
pensa
Outro fator que alimenta as
Husoes a respeito da maqui-
na. ressaltou Warmer, e que
na Informatica usam-se mui-
tos antropomorlismos. isto e.
atnbuem-se qualidades hu-
manas a maquina Um com-
putador nunca teve membna.
nunca sou be ter ou escrever.
Ele nao e intehgente ou bur-
ro, simplesmente ou esta fun-
cionando ou esta quebrado
Sobre a invasao pelo com-
putador de areas de atividade
reservada ao homem. Warnier
lamentou que exista uma
distancia cada vez maior en-
tre o desenvolvimento da tec-
nica e a formagao das pes-
soas que vao utilizar essas
novas tecnicas ". E advertiu:
Nao e ensinando BASIC que
vamos fazer as pessoas ra-
ciocinarem. Elas preasam
antes aprender a raciocinar
para depois obter a capaci-
tacao tecnica
Gravador de memorias EPROM
A Micromac Industna de
Equipamentos Eletronicos
Ltda. esta fabncando os gra-
vadores de memorias EPROM
3EP-30 e os apagadores de
EPROMs EEP-30 O GEP-30
compoe-se de uma unidade
de hardware com fonte de
alimentagao propria e mais o
software — em Assembler
Z80 — fornecido em cassete
ou disquete Ja o apagador
de memona EEP-30 permite
o apagamento de lotes de 30
EPROMs 2780. 2716 e 2732.
entre outras. O GEP-30 custa
CrS 485 mil, e o EEP-30. CrS
395 mil A Micromac fica na
Rua Texas. 1342, Sao Paulo
- SP. CEP 04557. tels (011)
61-3-167 e 531-8760
Piaget e os micros
Partindo do prmcipio de
permitir as cnangas utilizar o
microcomputador como um
piano, um crayon, um papel
ou pincel, e para que este as
auxilie no desenvolvimento
do raciocinio logico atraves
da expansao da sua cnativi-
dade. foi criada em Sao Paulo
a 4C. Segundo o seu diretor.
Luis Paulo Soares. para a cn-
agao da 4C foi feito um
estudo das etapas do desen-
volvimento mfantil de acordo
com Piaget, o que resultou
em um curso para as criangas
que estao no estagio de ope-
ragoes formais. ou seja. alu-
nos de 5 a a 8 a sene.
Da 4C tambem participa a
empresa People, de Campi-
nas, que ja possui cmco anos
de experience no ensino de
computagao. e a loja Compu-
tique. Os cursos da 4C tern
duragao de 16 horas/aula.
com turmas matutinas e ves-
pertmas. Maiores informagoes
na Av. Rouxinol. 201. Sao
Paulo — SP, CEP 04516. tel.:
(011) 61-4595.
/STRINGS!
' A Apple-tronic langou o monitor de video Apolo. de 12 em
fosforo verde de alta resolugao (20 MHz) Adaptavel a qualquer
micro, o monitor custa 42 ORTNs e pode ser comprado direta-
mente do fabncante (que tambem fornece em OEM) ou atraves
de lojas espeaalizadas * Ao comemorar o quinto aniversano. a
Compucenter anunciou a sua transformagao em systems house
e langou o PC — Padrao Compucenter. que consiste num pacote
englobando um micro de 16 bits — o Nexus 1600. da Scopus
— . software e treinamento * Os usuanos do TK 83 e compativeis
ja poderao encontrar nas lojas a nova sene de jogos animados
de 2K, deSenvolvidos pela Multisoft Informatica Ltda Sao 16
programas agrupados em fitas com dois ou tres e que incluem,
entre outros. Invasores. Grand Prix. Limpeza Cdsmica. Laser.
Desafio Espacial. Confronto. Minotauro. Bombardeio. Guilhotina
e Smag-Smag ' Edson Fregni. presidente da Abicomp e da
Scopus Tecnologia, foi escolhido Engenheiro do Ano de 1983
pelo Instituto de Engenharia de Sao Paulo. O titulo. segundo o
Institute visa a premiar a luta desenvolvida por Edson Fregni
na defesa da engenharia e na politica de implantagao de reserva
de mercado tecnologico na Informatica " A base de dados
Sonar/lnspec, distribuida pelo Centro de Informagoes Nucleares
— CIN. da Comissao Nacional de Energia Nuclear, foi acresada
de uma nova area de interesse, Tecnologia da Informagao. e cu)OS
relatonos. em ingles, incluem os segumtes topicos General &
Management Aspects. Applications Media-TV. Radio. Press. Ge-
neral Systems. Office Communications. Office Computing ' A
Companhia Siderurgica °aulista — Cosipa comemorou os seus
30 anos de existencia ccm a mauguragao de um sistema pioneiro
no Pais de controle computadonzado do processo de aqueci-
mento do laminador de tiras a quente O proieto. que utihza
computadores nacionau e inclui o desenvolvimento dos modelos
matematicos e dos programas de supervisao e controle. permitiu
alcangar o dominio tecnologico tanto do equipamento como do
processo industrial. * A 11 a FUSE — Feira Internacional de Uten-
silios e Servicos de Escritorio. a realizar-se de 18 a 22 de fevereiro
de 1984, no Parque Anhembi, Sao Paulo, contara com a parti-
cipagao de novos setores de atividades. entre eles, Processa-
mento de Dados e Teleprocessamento O evento, promovido
pela Alcantara Machado Feiras e Promogoes Ltda , sera tambem
realizado entre 4 e 10 de junho. no Centro de Convengoes de
Pernambuco. com o nome de 1 a FUSENE.
MICRO SISTEMAS, janeiro/84
21
Sistemas nacionais
para a linha Apple
A Potencial Software de-
senvoiveu e esta comerciah-
zando uma sene de aphcati-
vos comerciais para micros
da linha Apple, alem de urn
curso de BASIC, o Passo a
Passo, ministrado na propria
maquma. com 20 horas de
mstrugao e incluindo eteilos
sonoros. cores e ammacao
gralica.
Os programas. comerciah-
zados com garantia do tabri-
cante. sao os segumtes Fo-
Iha de Pagamento (para ate
200 tuncionanos. com 37 itens
por cadastro. alteracao de
tichas individuals e emissao
de diversos relatonos). Mala
Direta (arquiva ate 250 cadas-
tros de 13 itens por disquete.
permite busca atraves de pa-
rametros preestabelecidos e
impressao de parte ou de to-
das as tichas). e Controle de
Estoque (para ate 1 1 mil itens.
com sete informagoes cada. e
busca por diversos campos
escolhidos pelo usuario).
Todos os programas exigem
equipamento com 48 K RAM.
microprocessador 6502 um
drive de disquetes de 5 1 /4
e sistema operacionai SOD
3.3. O endereco da Potenciai
Software e Av. Dr Campos
Salles. 715. cj 902/3. Cam-
pinas — SP. CEP 13100. lei
(0192) 31-5340.
Setor ve 1984 com otimismo
Hpesar da cnse. o ano
foi bom para a Informa-
tica brasileira. Bom nao
apenas no faturamento (que.
diga-se de passagem. foi in-
vejavel). mas tambem pelos
importantes passos dados no
sentido da consolidagao da
iniciativa nacional no setor. A
esse respeito concordam diri-
gentes nacionais e regionais
das principals entidades de
classe da area ouvidos por
MICRO SISTEMAS e que es-
peram este ano colher diver-
sas sementes plantadas du-
rante o ano que acaba de
fmdar
Edson Fregni. presidente
da Associacao Brasileira de
Computadores e Perifencos
— Abicomp. por exemplo.
acha que o ano de 83 mar-
cou o inicio do amadureci-
mento da industria nacional ".
A constatagao desse amadu-
recimento. prosseguiu. pode
ser vista no Informatica 83.
tanto que a Abicomp abnu a
discussao sobre pirataria.
num reconhecimento de que
nosso compromisso e com a
tecnologia e nao com o fatu-
ramento da industria". Para
ele. um ponto de destaque
sobre esse aspecto em 1983
foi o Ato Normativo 27, da
SEI. impondo barreiras contra
a pirataria.
O presidente da Abicomp
ressaltou ainda que a indus-
tria nacional de computado-
res viveu em 1983 algumas
dificuldades muito serias de-
correntes da situagao econo-
mico-financeira do Pais, tal
como a crise da importagao
de componentes. Mas. acres-
centou. 1983 foi. acima de tu-
do. o ano de abertura do de-
bate sobre a quest ao da poli-
tica de Informatica em outros
setores da sociedade. a co-
mecar pelos partidos politi-
cos, debate esse que. na opi-
niao de Fregni. devera pros-
seguir em 1984. ja com signi-
ficativa parcela da sociedade
apoiando a reserva de merca-
do Ele ressaltou tambem a
pressao exercida pelos norte-
amencanos no ano passado
em cima da politica de Infor-
matica Tivemos que nos or-
ganizar e aprender a agir dian-
te desse fato
Qara Wladyr Furegatti.
ex-presidente da Suce-
su-SP. houve em 1983
uma sensivel melhora no rela-
cionamento usuario-fabncan-
te. decorrente de aperfeigoa-
mentos no hardware, no soft-
ware e na manutencao. "O
usuario viu com satisfacao o
surgimento de outros forne-
cedores de hardware, o que
sem duvida traz uma garantia
de fixacao da politica nacio-
nal de Informatica e de evolu-
cao tecnologica . disse Fure-
gatti. para quern as relacoes
entre fornecedores e usuanos
tendem a se apnmorar em
1984. com melhor tecnologia
e menores custos.
Ja a nova diretona. que to-
mou posse em fins de dezem-
bro. planeja aumentar a parti-
cipagao dos associados. a co-
mecar por uma consulta atra-
ves da qual eles estabelece-
rao as prioridades a serem
seguidas pela entidade. Con-
forme explica Octavio Genna-
ri Netto. novo vice-presidente.
esta prevista para este ano
uma exposicao permanente
de microcomputadores na se-
de da Associacao. com apoio
para o usuario. Tambem esta
nos pianos da nova diretona
da Sucesu-SP uma integragao
maior com a sua congenere
carioca: ' Vamos ajuda-los na
organizacao do Informatica
84 e eles nos ajudarao no
Informatica 85 adiantou
Gennan.
Hregulamentagao da pro-
fissao foi o principal
assunto que mobilizou
os esforgos da Associagao de
Profissionais de Processa-
mento de Dados de todo o
Brasil. Foi tambem o tema
central do 1° Congresso Esta-
dual de Profissionais realiza-
do pela APPD-SP, que elabo-
rou um anteprojeto de Codigo
de Etica. atualmente sendo
examinado pelas APPDs dos
outros Estados. A regulamen-
tacao da profissao e tambem
um dos pontos-chave do pro-
grama de atividades a ser de-
senvolvido pela nova diretona
da regional paulista. junta-
mente com a luta pela criacao
de um sindicato e a defesa da
tecnologia nacional. Segundo
Francisco de Assis da Costa
Beraldo. novo presidente oa
APPD-SP. a partir deste mes
tambem ja devera estar fun-
cionando na entidade o Micro
Centro. onde serao promovi-
dos cursos e paiestras para
reciclagem dos profissionais
no tocante aos microcompu-
tadores.
A Associacao Nacional dos
Dingentes Executivos de In-
formatica — . ANDEI. que tam-
bem teve eleicoes recente-
mente. pretende este ano dis-
seminar a sua existencia.
Uma das fonnas sera a cria-
cao de um departamento de
recursos humanos para auxi-
liar as empresas na seiecao
de profissionais adequados
as suas necessidades A AN-
DEI pretende tambem realizar
uma pesquisa de salanos a
nivel nacional. numa tentativa
de disciplinar o mercado
Alem disso. a entidade esta
criando um setor de benefi-
cios a nivel tecn.co. com cur-
sos e seminarios. alem de
convenio medico, entre ou-
tras coisas.
Hara Jose Maria Sobn-
nho. presidente da As-
sespro — Nacional. os
Projetos de Identificagao da
Propnedade do Software e de
um Novo Codigo de Etica.
alem dos Programas de Co-
mercializacao firmados com a
Control Data e a IBM foram as
mais signif icativas vitonas al-
cancadas pela Associacao em
83. Um ano que. apesar da
dificil situagao economica do
pais, foi bom para as empre-
sas de servigos de Informa-
tica, que registraram indices
de crescimento acima da taxa
de mflacao.
Informatica e o instrumen-
ts indispensavel ao pais para
atravessar a crise que ai estar
com a otimizacao e a conse-
quents redugao dos custos
abrem-se perspectivas para
novas contratagoes Sobri-
nho acredita que as empresas
que conseguiram fechar o
ano de 83 com lucratividade
estao aptas a enfrentar 84.
pois eu prevejo para este
novo ano a retomada do de-
senvolvimento econdmico do
pais", disse ele. ■
22
MICRO SISTEMAS. janeiro/84
Esta e uma versao reduzida (para 657 bytes)
da listagem'Programe em segredd' publicada em MICRO SI ST EM AS
nQ 25, edicao de outubro/83, para ser rodada em
equipamentos da linha Apple. Se voce tern a/gum programa
ja publicado em MS convert/do para outro equipamento, divida
sua experiencia com os demais leitores, enviando-o para
MICRO SISTEMAS/Secao Conversao, Rua Visconde Silva, 25,
Botafogo, Rio de Janeiro, RJ, CEP 22281.
Programe em segredo
no Apple
Pierre R. Weber - Sao Paulo - SP
10 REM PROGRAMA CRIPTOGRAFIA ' SE
170 IF K=0 THEN READ B$,E$: GOTC
GREDO"
190
20 REM MICRO SISTEMAS 25, PAG 60
180 READ E$,B$
30 RESTORE
190 IF C$=B$ THEN PRINT E$;: GOT
40 PRINT: PRINT: PRINT: PRINT
O 210
50 PRINT "ESCOLHA : 1 CODIFICAR ,:
200 NEXT A
60 PRINT " 2 DECODIFICA
210 RESTORE
R"
220 NEXT X
70 PRINT " 3 TERMINAR"
2 30 GOTO 30
30 INPUT R
240 K=l
90 ON R GOTO 100,240,260
250 GOTO 110
100 K=0
260 END
110 INPUT" INTRO DUZ A A FRASE ";A?
270 DATA A,K,B,M,C,L,D,N,E,Z,F,I
12 RESTORE
,G,M
130 G=LEN(A$)
2SG DATA H,B,I,A,J,D,K,B,L,E,M
140 FOR X=l TO G
,C,N,F,0,B,P,0,Q,0,R,P
150 C$*MID$ (A$,X,1)
290 DAT* S,U,T,X,U,T,V,V,X,S,Z,J
160 FOR A=l TO 28
ii n tj ii ii ii .ii n , n ;i s • n :> " . •
M
M
PROCURE QUEM
REALMENTE EIVTTENDE.
MICROMAQ
R. Sete de Setembro, 92 - Lj. 106
Tel.: 222-6088 - Rio de Janeiro
POR QUE NAO TUDO EM
UM SO LUGAR?
Microcomputadores, Sotware, Publica^oes
Especializadas, Cursos e Manuten^ao de Equipamentos.
MICRO SISTEMAS. janeiro/84
23
Comecou a temporada de pesca nos micros da famflia Sinclair ! Prepare
a isca, o canico e o samburi, e nao deixe escapar nenhum
Pescaria
em aguas eletronicas
Nelson Hisashi Tamura
Domingo, feriado, meio de semana. Todo dia e" dia de
pescaria neste jogo para os micros compati'veis com a
logica Sinclair. A configuracSo minima necessana 6 16
Kb de RAM e o programa opera em SLOW para animacao das
figures.
jogo e" totalmente auto-explicativo, mas, antes de come-
car a pescar, preste atencao nesta dica: para tirar o peixe da
agua, voce deve pressionar a tecla S assim que a vara do pesca-
dor tremer, indicando que o peixe mordeu a isca. Aria's, estd
ai uma otima chance para voce testar como andam seus re-
flexos...
micro lhe di dez iscas e, com cada uma, voce poderd er-
rar at6 tres vezes. Se nao conseguir apanhar o peixe, perde a
isca.
Cada peixe fisgado conta dez pontos. Vamos ver se voce €
realmente bom de pescaria ou se s6 sabe mesmo 6 contar boas
histdrias de pescador.
Nelson Hisashi Tamura 6 estudante do Curso Tecnico de Eletronica na
E. P. S. C. Liceu Bra's Cubas. Atualmente trabalha numa oficina de en-
rolamentos de motores etetricos, onde utiliza urn CP-200 para arquivo
de dados e controle geral de oficina.
REM < NELSON H. TAMURA >
5 SLOW
10 GOSUB 4000
20 CLS
30 PRINT "N.H.T."
40 PRINT AT 3,7; "BMB" ; AT 4,
Pescaria
90 PRINT AT 16,0;
::.
50 PR INT AT 7,8;
11,7;T^HHEH!]'';AT L2, 13; "W\"
60 PRINT AT 12,7; "^^^J"; AT 13
,7; "aHHH"
70 PRINT AT 14.0:" IJ M I I 1 I III W
mr
80 PRINT AT lS.QrTrrniillll'l I
100 PRINT AT 17,0;
cmsr
110 PRINT AT 18,0;"GBDOOOOOHBB
120 PRINT AT ln "-TlBgl i ifTITI
■"
130 print at 20.0: " rrri 1 1 1 1 1 1 1 n
■"
140 LET H=0
150 POKE 16418,0
160 FOR K=21 TO 23
170 PRINT AT K , ; "1 ^^— ^1
180 NEXT K
190 PRINT AT 11,0;"H£E£££B";AT
12,0;"[l£££££C";AT 13, ; "a^^HD"
200 GOSUB 400
210 GOSUB 500
220 GOTO 600
400 PRINT AT 2, 26 ; T^" ; AT 3,28
;":";AT 4,28;":";AT 3,24;"t^ n ;A
T 4,22;"BH]";AT 5 , 20 ; "aB" ; AT 6,
18; "OB"; AT 7,17; "GB"
410 RETURN
500 FOR C=5 TO 20
510 PRINT AT C,28;"J"
520 PRINT AT C,28;":"
530 NEXT C
540 PRINT AT 20,27;"H";AT 20,29
;"E M ;AT VAL "19" ,27; "C" ; AT VAL "
19",29;"[3"
550 PRINT AT 20,27;" ";AT 20,29
;" ";AT VAI "19", 27;" ";AT VAL "
19 ",29;" "
560 RET Mi
24
MICRO SISTEMAS, janeiro/84
600
FOR P=0 TO 9
610
FOR L=l TO 3
620
LET Y=INT (RND*100)
630
FOR Z=0 TO Y
640
NEXT Z
650
PRINT AT 2,26
";AT 3,24
; "
H ;AT 4,22;"
";AT 5,
20;"
H
660
IF INKEY$="S"
THEN GOTO 690
670
PRINT AT 5,20
'141 1 I 1 !"; AT 4,
24; , HHH";AT 5,28
":";AT 20,28;
tr
680
690
IF INKEY$-"S"
THEN GOTO 200
PRINT AT 4,23
";AT 5
,21;" ";AT
5,28;":"
700
GOSUB 400
710
PRINT AT 3,28
":";AT 4,28;"
:";AT 20,28;":"
720
NEXT L
730
GOSUB 1000
740
NEXT P
750
POKE 16418,0
760
PRINT AT 22,2
"ACABARAM AS
ISCAS."
770
GOSUB 6000
780
PRINT AT 22,1
"VOCE QUER OU
TRA PESCA ? S/N ?"
790
IF INKEY$="S"
THEN RUN 20
800
PRINT AT 22, 17; "Q^^"; AT 2
2,25
"S";AT 22,27; "D"
810
IF INKEY$="N"
THEN STOP
820
PRINT AT 22,17; "PESCA"; AT 2
2,25
"B";AT 22,27;
N"
830
GOTO 790
1000
PRINT AT 22,2
"O PEIXE LEVO
U SUA ISCA."
1010
GOSUB 6000
1020
PRINT AT 22,2
"■■^^■B
1030 IF P<=4 THEN LET D=ll
1040 IF P>=5 THEN LET D=12
1050 IF P<=4 THEN LET G=P
1060 IF P>=5 THEN LET G=P-5
1070 PRINT AT D,G+1;" "
1080 RETURN
2000 PRINT AT 4,24;" ";AT 5,
20;" ";AT 6,19;" ";AT 5,28;
" ";AT 6,28;" ";AT 7,28;" ";AT 8
,28;" ";AT 9,28;" ";AT 10,28;" "
2010 PRINT AT 11,28;" ";AT 12,28
;" ";AT 13,28;" ";AT 14,28;" ";A
T 15,28;" ";AT 16,28;" ";AT 17,2
8;" ";AT 18,28;" ";AT 19,28;" ";
AT 20,28;" "
2020 PRINT AT 6,19; T; AT 5,19;"
CB";AT 4,20;"a! :";AT 3,21; "OH
:":AT 2 , 22; "3! : " ; AT 1,23; 'OH"
2030 FOR N=5 TO 12
2040 PRINT AT N,24;":"
2050 NEXT N
2060 PRINT AT 13 , 23; "/"; AT 14,22
;"OE";AT 15, 22 ; 'H" ; AT 16,22;"
■■" ;AT 17,22; "[Ml"; AT 18,22; "31
E";AT 19,22;'H3"
2070 LET H=H+1
2080 IF H<=9 THEN PRINT AT 18,5;
H
2090 IF H> = 10 AND H<=*99 THEN PRI
NT AT 18,4;H
2100 IF H>=100 AND H<=999 THEN P
RINT AT 18,3;H
2110 IF H>1000 THEN PRINT AT 22,
2; "VOCE ACABOU COM OS PEIXES."
2120 IF H>1000 THEN GOTO 770
2130 PRINT AT 13,23;" ";AT 14,22
;" ";AT 15,22;" ";AT 16,22;"
";AT 17,22;" ";AT 18,22;"
";AT 19,22;"
2140 FOR T=12 TO 2 STEP -1
2150 PRINT AT T,24;" "
2160 NEXT T
2170 PRINT AT 1,23;" ";AT
" ";AT 3,21;" ";AT 4,20;'
T 5,19;" ";AT 6,19;" "
2180 GOSUB 400
2190 GOSUB 500
2200 GOTO 610
4000 CLS
4010 PRINT
22;
";A
4040 PRINT AT 4,30; 'XI"
4050 FOR W=29 TO STEP -1
4060 PRINT AT 4,W;"y"
4070 NEXT W
4080 PRINT ,,,," *INSTRU
GOES*"; TAB 9;"
,"1 - VOCE DEVERA FI
QUANDO APARECER UM
NANDO A TECLA S . "
"2 - CADA PEIXE FIS
PONTOS. SE V. FISG
A ISCA CONTINUA SE
MAS SE V. PERDER O
CHANCES, V. PERDE
4090 PRINT , ,
SGAR O PEIXE
D, PRESSIO-
4100 PRINT ,,
GADO VALE 10
AR UM PEIXE,
NDO A MESMA,
PEIXE EM 3
UMA ISCA."
4110 POKE 16418,0
4120 PRINT ,,"3 - PRESSIONE ""P"
" PARA INICIAR A PESCA, E TENHA
UMA ""BOA"""
4130 PRINT AT 22 . 1 r " nMJHJH > "
4140 IF INKEY$="P" THEN RETURN
4150 PRINT AT 22, 10 ; "<PESCARIA>"
4160 GOTO 4130
6000 FOR U=0 TO 30
6100 NEXT U
6200 RETURN
9000 SAVE "FISHING" _
9999 RUN 5
A Nasajon Sistemas lanca urn novo conceito
para agilizar a sua empresa :
A PRESSA t AMIGA DA PER FtIC AO.
A Nasajon Sistemas esta lancando no mercado uma se>ie de programas especfficos que podem dinamizar
ainda mais as diversas areas de sua empresa.
Sao mais de 50 programas diferentes para DGT 1000,
CP 500, D 8002, TRS 80, NAJA, JR e outros.
Com os programas da Nasajon Sistemas voce vera* porque a
pressa e* amiga da perfeicao.
Nasajon Sistemas:
Um jeito f£cil de resolver os problemas de seu computador.
• Desenvolvemos qualquer tipo de software de acordo
com as necessidades de sua empresa.
• Antes de comprar seu computador solicite
nossa assessoria, sem compromisso, dC^v*tt* x °
para anilise, implantacao e apoio. ctf^ <^
• Desoontos para revenda. -w<\O s ^o. e • ^ \^*
• Atendimento por reembolso Kf x r&° Vvtf X °J^°'
para todo Brasil. V?,*** %<*%***
PREQO ESPECIAL DE LANQAMENTO
Program*
Fits (Cr$)
D»fc«tta(Cr$)
Contabilidade
35.064,00
210389,00
Controle de Estoque
56.183,00
140.259,00
Controle de Custos
35.064,00
-
Mala Direta
42.077,00
103.000,00
Mala Direta c/Ed. Texto
-
175.324,00
Contas a pagar/receber
42.077,00
105.194,00
Tesouraria (C Saldo bancario)
-
105.194,00
Crediario(p/D8002)
-
245.454,00
Admin, de Imoveis
-
385.714,00
Editor de Texto
28.051,00
—
Arquivo de Processos
21.038,00
-
Controle de Livros
17.532,00
—
Controle de Cheques
17.532,00
-
Biorritimo
14.025,00
21.025,00
Decisao
15.428,00
22.428,00
Obstaculo
15.428,00
22.428,00
Kit Materriatic. c/6 progr.
56.103,00
63.103,00
Jogos Americ. (Fita c/4)
21.150,00
28.150,00
k 6«*
e
*°
**
Voce" tambem encontra esses programas
em nossos revendedores credenciados.
'J/i/temo/
Av. Rio Branco, 45 gr. 1311 CEP 20090
Tel. (021) 263.1241 - Rio da Janeiro
MICRO SISTEMAS, janeiro/84
25
Mr. Ampersand: um recurso elegante e eficiente em Applesoft quando se
trata de chamar sub-rotinas em linguagem de maquina, como extensao ao BASIC
Mr. Ampersand
Nelson Filho
■™~- reqiientemente quando estamos
Tj^ trabalhando em BASIC (Apple-
£* soft), sentimos a necessidade de
___^ incorporar em nosso programa
uma ou mais sub-rotinas em linguagem
de maquina. Existem mesmo, como sa-
bemos, situacpes em que esta operacao
6 inevitavel, como na geracSo de notas
musicais ou quando se deseja velocidade
na movimentacSo de figuras no video,
como nos jogos. £ comum tambem, nes-
tes casos, necessitarmos passar variiveis
ou dados, de um modo geral, para estas
sub-rotinas.
Nestas ocasiSes, nosso BASIC dispoe
de instrucoes como CALL, USR ou o
POKE (esta ultima apenas para passar
dados), cada qual com seu singular po-
tential. Mas, na maioria das vezes, o
meio que parece ser o mais eficiente, o
mais pratico ou ate mesmo o mais sim-
patico e elegante e" o ce'lebre Ampersand
( &). Para se chamar uma ou mais sub-
rotinas em linguagem de mdquina, como
extensao ao BASIC e, ao mesmo tempo,
passar dados, mesmo que complexos
como uma string, o Ampersand 6 o meio
mais consagrado.
Ocorre, contudo, que nossos manuals
nao trazem muita noticia sobre o em-
prego do Ampersand. No manual do
Apple ( # A2L0006, pg. 123), por
exemplo. apenas consta uma nota que
26
diz: "o Ampersand destina-se somente
ao uso interno do computador; ele nao
e propriamente um comando e sim um
simbolo que, quando executado como
uma instruct), causa um pulo (jump)
para o endereco S3F5". De fato, o
Ampersand nfo & propriamente um co-
mando, a na"o ser quando associado a
uma sub-rotina em linguagem de maqui-
na, configurando-se assim,eventualmen-
te, uma extensao para o nosso BASIC.
No entanto, esta vaga explicac^o nao
orienta o usuario quanto ao adequado
emprego do recurso. A sua aplicacao, na
realidade, constitui-se numa tdcnica
particular e nem sempre tao simples - 6
preciso, antes de mais nada, compreen-
der bem como o Applesoft trabalha na
interpretacao dos comandos em um pro-
grama. Vamos entao preencher esta la-
cuna, discutindo o emprego da te'cnica
do Ampersand. Como ele pode ser em-
pregado a fim de estender o BASIC,
adicionando comandos extraordinanos
ao nosso interpretador, de forma elegan-
te e eficiente.
Para o exame que se segue, presumo
que o leitor ja" esteja habituado a traba-
lhar em Assembler. Receio que o na"o
iniciado tenha dificuldade em acompa-
nhar mas, de qualquer forma, lendo com
cuidado certamente encontrar£ informa-
coes liteis.
O AMPERSAND
Vimos que quando o BASIC encon-
tra o Ampersand numa linha do progra-
ma, ele faz um pulo para o endereco
S3F5. Vamos ver o que isto significa.
endere?o S3F5, bem como outros no
alto da pagina S03, sSo reservados para
conter vetores. Vetores que nada mais
sa"o do que instrucSes do tipo JMP.
Assim, o BASIC, durante a execucSo do
programa, encontrando o Ampersand,
vai "procurer" naquele endereco um ve-
tor, que devera estar apontando para a
sua sub-rotina em linguagem de maqui-
na. carregada em algum ponto da memo-
ha segundo sua convenience. A sub-ro-
tina sera" entao executada e. em seguida,
o Applesoft volta a assumir o controle,
dando continuidade ao programa em
BASIC.
Tudo muito semelhante ao um sim-
ples CALL, exceto pelo fato de que o
endereco 6 passado via vetor. Desta for-
ma, a primeua provide ncia do programa-
dor e" alocar, a partir do byte S3F5,
uma instrucao da forma JMP aaaa, onde
aaaa e* o endereco da sua sub-rotina. Es-
ta instrucao ocupara enta"o os bytes
S3F5, S3F6 e S3F7, que sao reserva-
dos para este fim.
Bem, ate agora nada de extraordina-
rio. Isso basta, se voce deseja apenas que
o & funcione como um simples CALL
MICRO SISTEMAS. janeiro/84
sub-rotina. Na"o obstante, se voce for
emprega-lo para chamar duas ou mais
funcoes diferentes, dentro de um mes-
mo programa, e/ou passar dados para a
sub-rotina, e preciso um pouco mais do
que isso. Como, por exemplo, se voce
quiser utUizaMo para chamar uma sub-
rotina que gere notas musicais, como a
que foi apresentada por MS na edicao de
maio/83, no artigo "0 som nosso da ca-
da micro", de Rudolf Homer Jr. Nes-
te caso, trata-se de uma sub-rotina sim-
ples, que gera uma nota em funcSo de-
dois dados: o periodo e a duraca~o da no-
ta. Na ocasia"o, foram adequadamente
empregados os comandos POKE e
CALL para, respectivamente, passar os
dados e chamar a sub-rotina. Vamos ver
como isto pode ser feito com o &.
Poderiamos declarar simplesmente
&P, D, por exemplo, onde P seii o valor
do periodo e D a duracao. Assim, ao
inve's de tres declaracOes (POKE P:
POKE D: CALL sub-rotina) ten'amos
apenas uma. Se por um lado esta linica
declaracao e\ como se pode ver, mais
elegante e prdtica, exige maior trabaiho
na constructfo da sub-rotina que, agora,
necessita interpretar o comando, como
faz o interpretador BASIC. Temos, en-
ta"o. que ante por a nossa sub-rotina de
geracSo de notas, no caso, instrucdes
para interpretar a declaracao. verifican-
do a sintaxe e colhendo os dados para
depois executd-la. Para isso, vamos ver
como o BASIC faz este trabaiho de
interpretar os comandos e, especialmen-
te, estudar uma particular rot in a do
Applesoft conhecida como CHRGET,
que, provavelmente, lhe seii muito util
outras vezes.
INTERPRET ANDO
Sempre que voce esta dirigindo as li-
nhas de um programa, em Applesoft ou
congenere, esse interpretador estari
executando a tarefa de codificar e ar-
mazenar suas instrucOes em lugar pro-
prio da mem6ria para, futuramente,
serem lidas e executadas mediante o
comando RUN. Vejamos um exemplo.
Considere as seguintes linhas:
10 TEXT
20 POKE 6,35
30 & 72,63
POKE 7,75 : CALL 768
Apos digiti-las, voce podersi verificar
como final men te elas foram codificadas
e armazenadas. Para isto, chame o moni-
tor com um CALL-151. Em seguida, jd
no monitor, entre com 800.828. Assim,
teremos:
•801.828
0801- 07 08 0A 00 89 00 1C
0808- 08 14 00 B9 36 2C 33 35
0810- 3A B9 37 2C 37 35 3A 8C
0818- 37 36 38 00 26 08 IE 00
0820- AF 37 32 2C 39 00 00 00
Muito bem, ai estao aquelas linhas
codificadas. Do byte $801 ao $806 te-
mos a Unha 10; do $807 ao $81F, a
linha 20; do $820 ao $825, a linha 30
e, finalmente, os dois ultimos bytes, com
zeros, que representam o fim do progra-
ma. Os dois primeiros bytes de cada li-
nha indicam o endereco da proxima li-
nha do programa. Os dois subsequentes,
o mimero da presente linha e, em segui-
da, as de*clarac<5es propriamente ditas.
Re pare que toda linha termina com um
zero e que todas as pal a vr as reservadas,
como TEXT, POKE, etc., ocupam ape-
nas um byte, que tera sempre um valor
maior ou igual a $80, correspoiidente-
do Z = 1 (Z-flag set) se um $00 (fim de
linha) ou um $ 3A ( : ) for encontrado e,
ainda, C = (C-flag clear) se um (positi-
vo) digit o nume'rico (0-9) for encontra-
do. Repare que se a sub-rotina for cha-
mada a partir da posicSo $00B7 (entra-
da' secundaria conhecida como
CHRGOT), teremos o mesmo processo,
exceto que agora nao havera o incre-
mento de TXTPTR.
Durante a execucfo de um programa,
o Applesoft terd ajustado TXTPTR
para, via CHRGET, buscar, um a um, os
bytes que compo'em o programa - pre-
viamente codificados e ordenados na
memona — a fim de processd-los. No
Listagem 1
FONTE: CHRBET
OOOO:
1
*****************
OOOO:
2
«
OOOO J
3
*
OOOO:
4
* CHRBET
cooo «
5
*
OOOO:
6
* (APPLESOFT) »
OO'
7
*
OOOO:
8
*****************
OOOO :
9
«
PROXIMO
OBJETO DESIGNADO
CHRBET. OBJO
00B1:
10
ORG
♦ OOB1
OOB1:
11
;
00B1:E6
B8
12
CHRBET
INC
• B8
; INCREMENTA TXTPTR
00B3: DO
02
13
BNE
CHRBOT
00B5:E6
B9
14
INC
«B9
OOB7:AD
08 02
15
CHR60T
LDA
»020B
;APANHA CARACTER
00BA:C9
3A
16
CMP
#»3A
i)U = ": "?
OOBC:BO
OA
17
BCS
♦0OC8
;SIM - SAI
00BE:C9
20
IB
CMP
**20
;NAO - VERIFICA SE £ ESPACO
OOCO:FO
EF
19
BEQ
CHRBET
;SIM - PEBUE PROXIMO
00C2:38
20
SEC
;ASSE6URA C-0 SE
00C3:E9
30
21
SBC
#«30
; DI6IT0 NUMERICO
00C5:3B
22
SEC
00C6:E9
DO
23
SBC
#«DO
00C8:60
24
RTS
;SAIDA
*** BEM
SUCEDIDO ASSEMBLY:
SEM
ERRO
mente. Assim, para o TEXT temos o va-
lor $89, para o POKE o valor $B9, e
assim por diante. Nosso & e representa-
do no byte $ 820 pelo valor $ AF.
Agora, quando o Applesoft receber
o comando RUN, ele teii que ir buscar
o programa a partir do byte $801; ler,
byte por byte; interpretaMos e executar
as instrucSes. Para esse trabaiho, ler
byte por byte, o Applesoft se utiliza de
uma sub-rotina conhecida como
CHRGET (listagem 1). Precisamos estu-
da-la porque faremos o mesmo uso para
interpretar nosso Amper-Comando.
Esta sub-rotina € construida pelo
Applesoft e ira residir na RAM, a partir
do byte $00B1, na pagina $00. Sua
funcSo e buscar um carater (byte) em
algum endereco previa mente ajustado
nos bytes $B8 e $B9, conhecidos como
TXTPTR. Assim, seu primeiro trabaiho
6 incrementar TXTPTR para apontar o
proximo carater a ser recuperado. Em
seguida, este carater e carregado no
acumulador. E, finalmente, sera ajusta-
momento em que ele, em algum ponto,
encontrar um Ampersand, chamar a no-
vamente CHRGET, para e s6 entao des-
viar para o vetor $3F5 (e' importante
entender isto). Desta forma, ao se uiiciar
o processamento de sua sub-rotina,
TXTPTR conteri o endere?o do carater,
em seu programa, que vem imediata-
mente apos o &. Esse carater, por outro
lado, estara no acumulador. Ai esta
todo o truque.
Podemos agora construir nossa sub-
rotina, capaz de ler o que se segue ao &,
interpretando e executando. Para isto,
.nao existe um padrfo especifico. Tudo
vai depender da arquitetura do coman-
do, da forma, da sintaxe e da funclo,
enfim. Poderemos sempre utilizar para
ler simplesmente CHRGET ou qualquer
outra conveniente sub-rotina do Apple-
soft, que ainda execute outra funcao de-
sejavel. Ou, ate* mesmo, voce poderd
cnar algo extraordinario. Tudo, afinal,
vai depender da habilidade e experien-
ce do programador.
MICRO SISTEMAS. janeiro/84
27
MR. AMPERSAND
List age m 2
FONTE:
AMPER-SOM
OOOOl
1
*****************
2
* *
3
» AMPER-SOM *
OOOO:
4
* *
5
* (?■: P,D) *
6
* *
7
* P=PERIODO *
0000:
8
* D=DURACAO *
0000:
9
* *
OOOOl
10
*****************
0000:
1 1
:
PROXIMO OBJETO DESIGNADO AMPER-
0300:
12
ORG *0300
0300 s
13
•
0300:
14
»
15
; IGUALDADES
03001
16
; =^==============
03001
17
0006:
18
PERIODO EOU «<">6
0007 :
19
DURACAO EQU *07
E6FS:
20
GETBYT EQU *E6F8
DEBE:
21
CHKCOM EQU *DEBE
FCA8:
22
WAIT EQU *FCA8
C030:
23
SPKR EQU *C030
0300:
24
0300:
25
. ■■■■■■■■■■■■■■■■
0300:
26
; INTERPRETANDO
0300:
27
. ================
0300:
28
:
F8
E6
29
JSR
GETBYT
0303:86
06
STX
PERIODO
BE
DE
31
JSR
LIU COM
0306 t 20
F8
E6
32
JSR
GETBYT
m -.u& :B6
STX
DURACAO
D : AS
06
34
LDA
PERIODO
030F: FO
12
35
BEQ
PAUSA
-'11:
36
031 1 :
37
• ==== =
======
= ====
"-.11:
38
;
son
031 1:
39
;=====
======
=====
0311:
40
:
03 1 1 : AD
CO
41
BEEP
LDA
SPKR
• • -• 1 4 : 88
42
BEEP1
DEY
0315: DO
04
43
BNE
BEEP2
0317s C6
07
44
DEC
DURACAO
0319i FO
OB
45
BEQ
SAIDA
BiCA
46
BEEP2
DEX
031C:DO
F6
47
BNE
BEEP1
031EIA6
06
48
LDX
PERIODO
■:4C
11
49
J MP
BEEP
■
5"
51
;=====
======
=====
0323i
52
PAUSA
0323:
53
•=====
======
=====
:
54
J : 20
AS
FC
55
PAUSA
JSR
WAIT
6:60
56
SAIDA
RTS
_*** BEM SUCEDIDO ASSEMBLY: SEM ERRO
Todavia, deve-se ter em conta, e ter o
cuidado de que, ao retornai paia o
Applesoft, TXTPTR aponte paia a posi-
ca"o lmediatamente apos o Amper-Co-
mando, que deveii equivaler ou a um
SOO (fim de linha) ou a um S3A ( : ).
Isto, naturalmente, para que o Apple-
soft, ao resgatar sua autoridade, possa
continuar o 16gico processamento do
programa em BASIC. Lembre-se de que
CHRGET, se empregado adequadamen-
te, lhe assegurara isso quando acusar
Z = 1. Por via das duvidas, existe uma
sub-rotina do Applesoft, em SD995,
que garante que TXTPTR esta no fim da
declaracao. Assim, voce podera encerrar
sua sub-rotina com um convemente J MP
SD995.
UM EXEMPLO SIMPLES
Vamos ver, para finalizai. um exem-
plo simples. Voltemos a mencionada
sub-rotina para gerai notas musi-
cals. Vamos entao associa-la ao Amper-
sand. Havia sugerido antenormente a
seguinte forma: &P, D; onde P corres-
ponde ao valor do pen'odo e D ao valor
da duracSb. Acompanhe agora a lista-
gem 2 que traz, em Assembler, o progra-
ma denominado Amper-Som.
Primeuamente 6 preciso buscar o va-
lor do pen'odo e duracao. Ja existe uma
sub-rotina do Applesoft, capaz de fazer
isso para n6s. £ conhecida como
GETBYT e reside em SE6F8. GETBYT
avalia uma expresslo apontada por
TXTPTR e salva o resultado no registro-
X. resultado devera" ser um valor entre
e 255, que e" o nosso caso, senao o
programa serd interrompido com a men-
sagem de quantidade ilegal. Amper-som
chama entao GETBYT e depois transfe-
re X para o byte $06. Em seguida, cha-
ma CHKCOM e SDEBE, outra sub-roti-
na do Applesoft que verifica se o car-
ter apontado por TXTPTR corresponde
a uma ",". Caso positive TXTPTR e" in-
crementado e o programa continua; do
contrano, e interrompido com a mensa-
gem de erro de sintaxe. Em seguida.
GETBYT apanha a duracao que e" trans-
fenda para S07. Repare que ate* aqui foi
feito o correspondente a POKE P, 6:
POKED, 7.
A partir dai", ja de posse dos dados,
vamos a execucSo propnamente dita.
Pnmeiro carrega-se o acumulador com o
valor do pen'odo. Se este for igual a ze-
ro, o programa fard uma pausa, corres-
pondente a duraca"o indicada. Para isso,
carrega-se o acumulador com o valor da
duraca"o e chama-se WAIT em SFCA8,
que gera uma pausa em funcao do valor
no acumulador: 1/2(26+27 A+5 A 2 ) u
segundos. Se o periodo for diferente de
zero, executa-se a nota. Saiba que a sai-
da TXTPTR cstara apontando para o
pr6ximo cariter apos a declaracSo, co-
mo desejdvel. uma vez que GETBYT
avanca TXTPTR.
Muito bem! Espero que a andlise te-
nha sido adequada para voce. As possi-
bilidades, como voce deve ter percebi-
do, sa"o iniimeras. Tudo vai depender da
sua criatividade e habilidade. Voce po-
derd incrementar seu BASIC com mui-
tos outros comandos. Se voce for usar
mais um Amper-Comando, dentro de
um mesmo programa, 6 razoavel que
voce defina um r6tulo para cada um.
como por exemplo: & ELSE, & WAIT,
ou ainda & A, & B, & C e assim por
diante. Isso, naturalmente, visa a distin-
gui-los e ate 1 dar um toque de elegancia.
Neste caso, cuidado com as paia vr as re-
servadas. Veja bem: suponha que, em
nosso exemplo. ao invds de & P, D eu
optasse por &. NOTA (P, D) ou mesmo
& TOM (P, D). Observe que NOT e TO
sa"o palavras reservadas pelo Applesoft e.
assim, seriam codificadas como tal.
Ale"m das conseqiiencias obvias, listan-
do-se o programa o comando iria apare-
cer desfigurado. _
Nelson Filho dedica-se ao desenvolvimento e
pesquisa de software ba'sico, prestando servi-
cos de assessor/a te"cnica para va"rias empresas
de Informa'tica. Possui um Apple II Plus hi
dois anos.
28
MICRO SISTEMAS, janeiro/84
BIANCHI, P.; BEZERRA, M..
MICROCOMPUTADORES -
Arquitetura, Projeto e
Programs cao, LTC — Livros
T6cnicos e Cientfficos Editors
S. A.. Cr$ 5.800,00 (jan/84).
| texto se destina aos leitores
que \a sabem o que e um compu-
tador e o que e um programa. Nao
6 necessa>io nenhum conhecimen-
to de eletronica. Visa ao aprofun-
damento dos conhecimentos rela-
tivos a construcao de computado-
res e programacao a ni'vel de I in-
guagem Assembler e de miquina.
Os profissionais e estudantes de
computaca"o, bem como os entu-
siastas do computador pessoal en-
contrarao neste livro um meio de
satisfazer sua ansia de aprofunda-
mento.
O texto se originou de notas
de aulas de varios cursos referen-
tes a projetos com microprocessa-
dores ministrados pelo Prof. Paulo
Bianchi na Universidade de Santa
Clara, California, e na Universida-
de Federal do Rio de Janeiro,
bem como dos cursos referentes a
programacao de computadores
ministrados pelo Prof. Milton Be-
zerra, tamb6m da UFRJ.
YONG. C. S., Banco de Dados.
Editora Atlas. Cr$ 7.900.00
(jan/84).
| Um guia prdtico a todo prof is-
sional e usudrio que estejam en-
volvidos no desenvolvimento e
utilizacao de BD e a principal fun-
cao deste livro. Nos exemplos for-
necidos. o autor procurou trans-
mits uma visao essencialmente
pratica no projeto e implantacao
de BD. Esse processo 6 efetuado
atraves da real utilizacao dos pro-
gramas e modulos constituintes
dos sistemas de gerenciamento de
BD mais conhecidos no mercado
brasileiro
O exame detalhado das fun-
coes e estruturas internas de siste-
mas de gerenciamento de BD ob-
BORGES. J. A., BASIC -
Aplicacoes Comerciais, LTC -
Livros Tecnicos e Cientfficos
Editora S. A.. Cr$ 4.500.00
(jan/84).
| A abordagem geral do livro se
baseia em exemplos voltados para
aplicacoes do tipo gerencial. Par-
tindo de programas completos,
que sao analisados, o leitor 6 guia-
do ao entendimento do computa-
dor e da atividade de programa-
cao. livro cobre todos os deta-
Ihes da linguagem BASIC incluin-
do-se os aspectos que nao sa"o pa-
dronizados nas diversas versoes
para diferentes computadores. O
capi'tulo sobre arquivos fornece,
especial mente, a base para desen-
volvimento das aplicacoes de uso
na administracao em geral. Embo-
ra a enfase seja no BASIC para mi-
cros, esse texto podera ser utiliza-
do para a formacao de programa-
dores em BASIC para outros com-
putadores de maior porte.
jetiva fornecer ao leitor uma visao
conceitual e te6rica da tecnologia
atual dos SGBD. A este aspecto
adicionam-se capftulos sobre pa-
dronizacdes da tecnologia de BD e
estruturacao e desempenho de ar-
quivos. Outro enfoque relevante
refere-se a construcao de modelos
de dados, importante referencial
para posterior projeto, implanta-
£
CURSO DE BASIC
I
mm I ■Wiwau
ABREU, C. A.; REIS, D., Curso
de BASIC - Volume I, Edicao:
Micro-Kit. Cr$ 4.200.00 (jan/84).
| O Curso de BASIC Volume I e
resultado da experiencia de apro-
ximadamente oitenta cursos de
linguagem BASIC promovidos pe-
la Micro-Kit Educacional.
livro 6 composto por dez au-
las e. ao final de cada uma, sao
propostos exercfcios de verifica-
cao de aprendizado, solucionados.
A primeira aula e uma introducao
a programacao e, em seguida, sao
explanados os elementos de lin-
guagem BASIC, conduzindo o lei-
tor a elaborar um programa apli-
cativo passo a passo. A parte final
6 dedicada aos grSf icos e desenhos
na tela para jogos.
Como e comum surgirem mui-
tas duvidas na transformacao de
comandos de outras ma"quinas pa-
ra as da linha Sinclair, foi criado o
anexo I, que da" "dicas" de como
proceder em tais casos.
Um dos pontos mais importan-
tes do livro e o planejamento das
aulas, com programas-exemplos
correspondentes a parte tebrica, o
que possibilita ao leigo aprender
rapidamente a linguagem BASIC.
PFOCESSAMENTO
DE DADOS
IMAS EMF3RESAS
SHIMIZU, T., Processamento de
Dados nas Empresas, Editora
Atlas, Cr$ 6.500.00 (jan/84).
| A empresa, a m£quina (hard-
ware), a analise e programacao
(software) e a administracao sao
os tbpicos do estudo integrado
que este livro apresenta, dando
uma visao e um treinamento gra-
dual em processamento de dados
nas empresas. O livro abrange to-
da a funcao de PD, nao se limi-
tando apenas ao CPD, mas procu-
rando envolver a alta administra-
cao e os departamentos f uncionais
(contabilidade e finances, marke-
ting, producao e recursos huma-
nos), num sistema que, de modo
direto ou indireto, participa do
funcionamento das tarefas de PD.
O livro cont6m, entre outras,
uma explicacao da organizacao
funcional da empresa e de como
os metodos convencionais de lan-
camento, escrituracao e operacao
com formul^rios podem ser trans-
formados em um fluxo ou sistema
de informacao. Ensina a selecaoe
o uso de um sistema hardware
adequado de PD para a empresa e
tambem programas de software pa-
ra serem processados pelo compu-
tador.
cab e operacao de BD e, por fim,
uma descricao e analise dos prin-
cipals instrumentos para adminis-
tracao de BD.
A reuniao desses aspectos nu-
ma mesma obra visa a fornecer to-
do um conjunto de conhecimen-
tos que envolve os principals as-
pectos ligados ao BD, possibilitan-
do um entendimento e absorcao
globais do tema.
LAGRGTTAFILHO, Carlos. O
Microcomputador na Pequena
Empresa.
| O Microcomputador na Peque-
na Empresa e um livro em impres-
sao didaticamente organizada, que
parte de programas mais simples
ate um sistema integrado em on
line, e destina-se unicamente aos
empresaVios de pequenas empre-
sas que, possuindo um computa-
dor da classe TK82-C, TK85 e
NE-Z8000, pretendem utilizi-lo
com o proposito de agilizar al-
guns servicos.
O livro apresenta programas
simples e didaticamente estrutura-
dos, visando ao usudrio que nao
possui pratica ou experiencia an-
terior no relacionamento com
computadores. A linguagem BA-
SIC, dos programas, nao envolve
I6gica de programacao muito
complexa e nem se vale de opera-
dores muito complicados, tais co-
mo matriz multidimensionada,
operadores logicos, etc. O resulta-
do disso sao programas facflimos
de serem entendidos eassimilados.
MICRO SISTEMAS, janeiro/84
29
Ingredientes: imaginacao, paciencia e conhecimento de eletronica.
Resultado: seu TK com interfaces para fazer o que voce quiser
Arrisque e petisque
com seu micro
Wilson de Carvalho Junior
Quando pensei em comprar urn microcomputador pes-
soal, tinha uma pergunta em mente para a qual n3o sa-
bia a resposta: seria possi'vel utilizar o micro para con-
trolar algum equipamento? Tal questao vinha do fato de eu
possuir urn sistema de ferro-modelismo e imaginar se poderia
controlaMo atraves do micro. controle deveria ser sobre a ve-
locidade das locomotivas (duas independentes), a direcao
(frente-r^) e sobre os desvios (14 desvios, 28 posicoes).
Possuo um TK82-C e foi a partir dai que comecei a pensar
em tudo o que eu poderia fazer com ele. O meu objetivo ao
escrever este artigo foi justamente este: mostrar o que ja" con-
segui fazer com meu micro.
A primeira mudanca que fiz no TK foi a inversao da tela,
isto e\ caracteres brancos em fundo preto. Utilizando uma cha-
ve de um p61o/duas posicoes e muita paciencia, consegui efe-
tuar a mudanca. esquema da inversao esti na figura 1 e. pela
sua simplicidade, acho que dispensa maiores comentdrios.
CORTAR O CIRCUITO IMPRESSO
icl2
NORMAL
( , INVERSO
Figura 1
30
Quando passei para as interfaces e que a coisa complicou
um pouco. Como nSo disponho do esquema el^trico do TK e
nem de um osciloscopio, fica meio dificil projetar alguma in-
terface. £ preciso muita calma e nSo desanimar com alguns
problemas que aparecem.
hi
D c
"6*
+5V —
D-
'2-
'7-
1
INT
NM1
HALT
MREQ
IORQ
Figura 2
1
2
3
4
5
6
7
8
9
10
n
12
13
14
lb
10
17
18
L9
20
CP'J
Z80
40
39
38
37
36
35
34
33
32
31
30
29
28
27
26
25
24
23
22
21
10
"0
GND
RFSH
Ml
RESET
BUSRQ
WAIT
BUSAK
WR
RD
MICRO SISTEMAS. janeiro/84
CONHECENDO O TK
TK82-C utiliza a UCP Z80, cujas pinagem e funcoes estSo
na figura 2. No conector traseiro, onde encaixa a expansao de
memdna, estao presentes todas as linhas da UCP, atem de +9V,
+5V e OV. Segundo o manual, 6 possivel fazer com o TK, a
pnncipio, tudo o que se faz com o Z80. Foi baseado nesta fra-
se que achei que poderia construir as interfaces.
Para ter acesso as linhas da UCP, optei por utilizar o pr6prio
soquete da expansSo de 1 6Kb. Furei a caixa pldstica da memo-
na e coloquei dois cabos de 10 vias paialelas, sol dados nos ter-
minals do soquete. manual do TK82-C mostra um desenho
IORQ
ENDERECO DA PORTA
DADOS
WAIT
QE>
S
CICLO DE
LEITI1RA
CICLO DE
ESCRITA
Figura 3
do soquete traseiro e assim fica facil determinar quern e" quern.
As linhas em qu e soldei o s cabos foram: as oito linhas de dados
(D0-D7), ID1Q, RD, WR, 0V (comum) e as linhas de endereco
A0,Al,A2,A3eA7.
No controle de sistemas externos a UCP 6 necessano o uso
de instrucoes de entrada (IN) e saida (OUT). Na figura 3 temos
os diagramas relativos ao tempo que as operacSes levamparaler
e escrever em dispositivos de E/S. Quando a UCP encontra, por
exemplo, uma instrucfo do tipo OUT n,A, onde n pode ter
qualquer valor entre 00 e FF HEX (255 decimal) e A 6 o acu-
mulador, a U CP colo car4 no barramento de endereco o niime-
ro n, a linha IORQ vai a (indicando que vai haver uma ope-
racSo de E/S), a linha WR vai a (indicando que a operacfo
sera" de escrita (safda)) e o conteudo do acumulador A 6 colo-
cado no barramento de dados.
Da mesma forma, se a instrucSo for IN Ajn, o numer o n se-
li colocado no barramento de endereco, a linha IORQ vai a
como anteriormente , a linha R"I) vai a (indicando que serf fei-
ta uma operacSo de leitura (entrada)) e o registrator recebera"
os dados do barramento de dados.
Observamos assim que, para se efetuar uma operacao de
saida, por exemplo, e" ne cessan o deco dificar as linhas de ende-
reco, bem como as linhas IORQ e WR.
DECODIFICADORES, LATCHES E CONVERSORES
Foi na parte referente a decodificadores que encontrei as
maiores dificuldades com relacao ao TK82-C. Sabemos que
existem 256 posicOes de enderecamento para perife'ricos de
entrada e 256 posicSes para os de safda na UCP Z80. Contudo,
o TK nSo aceita todas estas posicoes. Pelo que pude observar,
parece que os enderecos de safda do tipo l+4n (n = 0,1, 2...)
na"o sSo aceitos pelo sistema. Se tentarmos tais enderecos, o
»
MICRO SISTEMAS, janeiro/84
25
LIVRARIA SISTEMA
Loje:GALERIA METROPOLE. U. 8 • 1 8 S/L0JA
TE LS. : 259- 1 503 - 257-61 1 8 • SP.
ENTRADAS DA GALERIA.
AV. SAO LUIZ. 187 - (Antigo 153)
PRAQA DOM JOSE GASPAR. 106 - SP.
SEMPRE NOVIDADES
GERfiNCIA DE BANCO DE DADOS PARA MICROCOMPUTADORES •
BROONER • 1983 - Cr$ 4.490.00
DOCUMENTAQAO DE SOFTWARE • Lomac - 1983 - Cr$ 3.200.00
SISTEMAS OPERACIONAIS P/MICROCOMPUTADORES - Dhemke -
1983 - Cr$ 6.900.00
O SEU COMPUTADOR PESSOAL - Waite • 1983 - Cr$ 5300.00
QUIA DE LINGUAGENS DE COMPUTADORES - Helms - 1983 - 3.900.
ASSEMBLY LANGUAGE GRAPHICS FOR THE TRS-80 COLOR COM-
PUTER - Inman • 1983 - Cr$ 28.000.00
WRITE YOUR OWN APPLE GAMES - Anns 1983 - Cr$ 27.000.00
PROGRAMMING THE APPLE II IN BASIC - Tebbe - 1983 - Cr$ 32.000.
HOW TO WRITE AN APPLE PROGRAM - Faulk 1982 - Cr$ 28.000.00
PROGRAMMING THE APPLE - A Structured Approach - Campball -
1982 - Cr$ 37 000.00
SUPERCALCI The Book- Bail- 1983- Cr$ 34.000,00
ACCOUNTANTS BASIC PROGRAMMIN FOR THE APPLE II - Parker -
CrS 29.000.00
HOW TO DO IT ON THE TRS-80 • Model Ill-Ill - Color Computer and Model
100 - Barden Jr. - Cr$ 56.000.00
TRS DOS 2.3 DECOEO & OTHER MYSTERIES • Fervour - Cr$ 56000.
THE CUSTOM TRS-80 & OTHER MYSTERIES - Kits* - Cr$ 56.000.00
THE CUSTOM APPLE & OTHER MYSTERIES - Hofacker - Cr$ 48.000.
HOW TO WRITE A TRS-80 PROGRAM - Faulk - CrS 28.000.00
LEARING TO PROGRAM IN C - Plum - CR$ 47.000,00
COMPUTER ART AND ANIMATION FOR THE TRS-80 - Heiterman -
1983 - Cr$ 25.000.00
GAMES FOR YOUR ATARI COMPUTER • Bunn - 1983 - Cr$ 11.400.00
APPLE II COMPUTER GRAPHICS - Williaru - 1983 - Cr$ 38.000,00
ELEMENTARY APPLE -Sander*- 1983- Cr$ 28.500.00
BUSINESS PROBLEM SOLVING WITH THE IBM PC & XT - Wortman -
1983 - Cr$ 38.000,00
COMPUTER GRAPHICS FOR THE IBM PERSONAL COMPUTER - Heern
1983 - Cr$ 37 000.00
BASIC ENGINEERING AND SCIENTIFIC PROGRAMS FOR THE IBM
PC - Wolfe - 1983 - 38.000.00
ATENDEMOSPOR REEMBOLSO
CORREIO E VARIG - Cora da Capital)
PEDIDOS PARA: Cx. Postal 9280
CEP 01051 - SAO PAULO - SP
MONK ROMPE A BARREIRA
DOS TRS-80 E LANCA A
LINHA DE PROGRAMAS P/
OS MICROS TIPO apple .
(Mcixxi, HPll, 1)8100* etcJ
Tome a deciscio que mais de 2900
usuarios de programas MONK para os
micros TRS-80 <CP308, CP50S, NAJA, JR,
DGT e D8000/l/2> tomaram : - Ponha o
s«u APPLE para trabalhar com os
aplica.tivos prontos para usar da MONK.
- OS PROGRAMAS MAIS PRATICOS
- OS MANUAIS MAIS COMPLETOS
- A MAIS AMPLA GARANTIA
- A MAIOR REDE DE REUENDAS '
77 EM 20 ESTADOS.
Lista parcial de programas :
Gerenciador de Banco Dados • Gerador
de Programas, Contas Pagar / Receber
Estoques, Conta Bancaria, Editor Texto
Contabilidade.. Mala Direta-, Compiladores
Home Pack's e Game Pack's :
Procure um revendedor MONK de sua
cidade .. ou F-^ca um catologo de
programas para seu microcomputador
tipo APPLE ou TRS-80 .
mOnK micro inform£tica ltda.
R Augusta. 2690 2 and Lows 318 «■ 324
Ttfc. (011)2800163 e 852 2958 Cep 01412
monk,
o software que faz voce ficar
feliz por ter um micro.
ARRISQUE E PETISQUE COM SEU MICRO
CIl-A
IORQ
WR
CI2-A
A i 3 -
t>
CI1-B
CI2-B
Figura 4
TK executa a operacao e apaga. £ preciso, entao, desligar a
fonte e tornar a ligd-la — com a conseqiiente perda do progra-
ma - paia que as coisas voltem a funcionar normalmente. Os
enderecos pares ate* 62 e os impares 3, 7, 11, 15, 19, 23, 27,
31, 59 e 63 foram testados e funcionam corretamente.
Vejamos como efetuai a decodificacao destes enderecos.
Partindo da hipotese de que necessitamos de um nivel para,
digamos, ter acesso a determinado perifenco de safda, precisa-
remos inverter todas as linhas de endereco que estiverem no
nivel 1, efetuar a operacao logica OU com tais linhas, mais as
linhas d e ende re co q ue estiverem com nivel 1 , e tambe'm com
os sinais IORQ e WR. Na figura 4 temos um decodificador para
o endereco 03. Se a operacao for de entrada, basta trocar a li-
nha WR por RD. No mercado, existem circuitos integrados que
fazem esta decodificacao para oito saidas.
Observando a figura 5, vemos o esquema de um decodifica-
dor 3x8, utihzando o CI 74LS138. Note que este decodifica-
dor seleciona as portas pares de 00 ate" 14. A linha A7 foi em-
pregada para habilitar o decodificador toda vez que A7 = 0.
Isto 6 essencial, uma vez que o TK utiliza algumas portas (255 e
254) para enviar dados ao gravador e, assim, quando o TK usar
o endereco 254 (11111110 binario) este sera" decodificado e
+ 5V
Y Y l Y 2 Y 3 Y 4 Y 5 Y 6
16 15 14 13 12 11 10 9
74LS138
12 3 4 5 6 7 8
"3
IORQ
WR
A,
1J\„ 2
£»
PORTA :
SAIDA
Y o
2
Y,
4
Y-
6
y.
8
Y 4
10
Y.
12
Y 6
14
Y 7
74LS04
Figura 5
32
CI1-D
12
CI1-C
LL
10
13
11
SAlDA
03.
CI 1 - 74LS32
CI 2 - 74LS04
acionara" o perife"rico 14 (00001110), o mesmo acontecendo
com o endereco 255 (1 1 1 1 1 1 1 1), uma vez que a linha A0 nSo
esta* sendo decodificada.
Passemos agora para os latches. Quando queremos mandar
dados da UCP para algum circuito externo, por exemplo um
conversor D/A, € fundamental que esses dados sejam mantidos
na entrada do conversor . Conseguimos isto atraves dos circui-
tos flip-flop chamados latches (tranca). A partir dos CIs
74LS74 e 74LS174, podemos construii um latch de 8 bits,
como mostra a figura 6. A entrada de clock dessses circuitos
conectamos a uma saida do decodificador e, desta forma, cada
vez que a saida do decodificador sofrer uma transicSo l-> -*■
1 , os dados do barramento de dados serao copiados na safda
do flip-flop e mantidos la" ate" que nova transi?5o na entrada de
clock ocorra.
Se ligarmos agora a saida do latch a um conversor D/A,
obteremos, na saida do conversor, uma tensao anaJogica. que
serd proporcional ao numero binirio que estiver colocado na
entrada.
Uma forma simples e barata, pore'm nSo muito precisa, de
se fazer um conversor D/A 6 valendo-se de oito resistores de
1% de tolerancia e de um amplificador operacional, como mos-
D ? D fi D 5 D 4 D D 2 D x D(} DWQS ^^^
+ 5V
CLR
D
CK
PR
Q
C
GKD
VCC
CLR
CK
PR
Q
Q
.- r-
rl
CLR
Ql
Dl
D2
Q2
D3
Q3
GND
Vcc
Q6
06
D5
05
D4
Q4
CK
AO
DECODIFICADOR
D 7 D 6 D 5 D 4 D 3 D 2 D 1 D
DADOS
Figura 6
MICRO SISTEMAS, janeiro/84
tra a figura 7. Este ultimo esta" ligado como inversor e, assim,
a tensao de saida sera" igual a:
v s = - 5Rl
+ a l +
a 2
~4~
+ a, + a
3
4
T6
a 5 +
32
+ a
7
T2T
onde
. Tan =0 seQn =0
\_an = 1 seQn = 1
Figura 7
Hh
4K7 | — 15
DAC0800
6 9 10 11 12
♦ 12V
SAIDA ANALOG I CA
LATCH
8 BIT
A UMA SAIDA DO
DECODIFICADOR
D 7 D 6 D 5 D 4 D 3 D 2 D 1 D
Figura 8
Para saida positiva, basta colocar outro amplificador operacio-
nal ligado como inversor com ganho -1 .
Se for necessana uma conversao com
maior precisSo e muito maior custo,
podemos utilizar o CI DACO800 (Cr$
16.000,00) e um amplificador operacio-
nal 741 , como demonstra a figura 8.
Usando os tres circuitos mencionados
(decodificador, latch e conversor), pude
controlar a velocidade das locomotivas.
Na figura 9 temos o circuito do contro-
lador de velocidade duplo (duas locomo-
tivas). Foram empregados dois endere-
90s, a saber: endereco 00 aciona o con-
trole da locomotiva 1 e endereco 02
aciona o controle da locomotiva 2. Se,
no lugai da chave inversora de polarida-
de, colocarmos um rele* cuja bobina e"
acionada pela saida de um circuito
latch, podemos inverter a direcfo das
locomotivas (frente-re") atrav^s de um
programa. Vejamos: usando as portas de
saida 04 e 06, teriamos as seguintes pos-
sibilidades de instracao:
MIN
V„» v ■ H.99V
MSB
I 5 6 7 9 10 1112
14
DAC0800
15
3 16 13 1
-QK7>
w
CONVERSORES D/A
—HED—
5 6 7 8 9 10 11 12 \ ,
14 >- 1 -*
3 16 13
1.01 ♦*«
l J ->iC<
' (0 • 11.
-4»" 1-12V
LATCH
SBIT
—•
I
LATCH
8 BIT
TE
a _ c
DECODIFICADOR
l.K
CONTROLE |x
MANUAL V ♦
GERADOR DE PULSOS
<>■ COM LARGURA VARlAVEL
15 14 13 12
74LS138
1 2 3 4 5 6
16- Vcc
8- GND
^nv
D 7 D 6 D 5 D 4 D 3 D 2 D 1 D
1 ttucn
A l A 2 A 3 SI S A 7
Figura 9
at
MICRO SISTEMAS, janeiro/84
33
ARRISQUE E PETISQUE COM SEU MICRO
• OUT 04, A com A = 00 - miquina 1 paia frente
• OUT 04, A com A = 01 - mdquina 1 para Uis
• OUT 06, A com A = 00 - m^quina 2 para frente
• OUT 06, A com A = 01 - mdquina 2 para Uis
Podemos tambe'rn controlar o ganho de urn amplificador e,
portanto, controlar o volume de um sistema de som. Um
exemplo de como isto pode ser feito esti na figura 10. Note
que temos 1 6 posicoes de ganho se usarmos um CI 4046 - e
256 posicoes se usarmos dois CIs.
CII 74LS174
*i * a »j a si A 7
Figura 10
GARANTA
SUA MS
TODO AAES !
Se voce" deseja assinar MICRO SISTEMAS, proceda da seguinte
forma:
— envie cheque nominal cruzado no valor de Cr$ 10.000,
para ATI — Analise, Teleprocessamento e Informdtica Editora
Ltda; - anexo, envie tamWm seus dados pessoais: nome,
profissSo, cargo, empresa e endereco completo para remessa.
Mas se voo£ quer f icar por dentro mesmo da Informdtica,
aproveite e assine tamMm INFORMATICA
& ADMINISTRACAO:
— envie cheque cruzado no valor de Cr$ 8.000, para ATI —
Andlise, Teleprocessamento e Inform^tica Editora Ltda.. e
nao se esqueca de remeter tamWm seus dados pessoais,
profissdo, cargo, empresa e endereco para remessa.
PARTICIPEDA PROMOQAO
DEFERIASMS/I&A!
Receba, mensalmente, MICRO SISTEMAS e INFORMATICA
& ADMINISTRACAOpeloprecode Cr$ 15.000. Entre logo
no nosso pacote anti-inflaciona'rio MS/I & A antes que acabe!
Envie seu cheque cruzado no valor de Cr$ 1 5.000, para ATI —
Analise, Teleprocessamento e Informa'tica Editora Ltda., e
anexe tambe'rn seus dados pessoais. Nossos enderacos: Rio de
Janeiro: Rua Visconde Silva. 25 - Botafogo - CEP 22281 -
Tels.: (021 ) 266-0339, 286-1 797, 246-3839. Sao Paulo :
Alameda Gabriel Monteiro da Silva, 1227 — Jardim Paulistano
— CEP 01441 -Tel.: 101 1)280-4144.
Aldm destas, podemos citar outras aphcacdes: controle de
todo o sistema de som (volume, tonalidade, balanco), controle
de freqiiencia de osciladores atravds de programa, um sistema
de luzes seqiienciais totalmente programdvel etc. Os empregos
sao muitos, dependendo apenas da imaginacao de cada um.
OS PROGRAMAS
As sub-rotinas de E/S sao extremamente simples. Utiliza-
mos POKE e USR para introduzir as instrucoes em linguagem
de maquina e, respectivamente, executd-las. Ate" agora, usei
apenas as instrucoes em Assembler LD A, x , OUT n, A , RET e
INA,n.
LD A, x carrega o valor de x (entre 00 e 255) no acumula-
dor A, e RET e" uma instrucao de retorno, que fazo processa-
mento voltar ao sistema BASIC. Um programa que executa
uma conversao D/A para cada valor de X, empregando o ende-
reco 02, fica:
01 RUN 30
05 PRINT "VALOR DE X"
10 INPUT X
15 POKE 18401, X
20 LET A = USR 18400
25 GOTO 05
30 POKE 18400,62
35 POKE 18402,211
40 POKE 18403,02
45 POKE 18404,201
50 GOTO 5
LD A,x
OUT A, 02
RET
Para gerar uma rampa de voltagem de a Vmax, onde
Vmax = -5R1 x 255 , basta introduzu as seguintes linhas:
R 128
10 FOR X = TO 255
15 POKE 18401, X
20 LET A = USR 18400
25 NEXT X
26 STOP
50 GOTO 10
E 6bvio que este me*todo para gerar uma rampa € extrema-
mente lento e podemos fazer um comando FOR... NEXT em
linguagem de mdquina que o tornaria bem mais rapido. O ma-
nual do TK traz uma lista das instrucoes em Assembler do Z80
com os respectivos codigos em decimal, e assim fica mais fdcil
fazer os programas em linguagem de maquina.
Estou projetando a interface de entrada. onde a UCP rece-
bera" informacdes a respeito da posicao das locomotivas e pos-
sa, desta forma, posicionar os diversos desvios, de acordo com
um programa preestabelecido.
Quero informar ainda que todos os cucuitos apresentados
aqui foram testados e se encontram atualmente em funciona-
mento, sem apresentar qualquer problema. ■
Formado em Fi'sica pela Universidade Federal do Parana", Wilson de
Carvalho Junior atualmente esta" fazendo pds-graduacao na Unicamp na
Area de semicondutores. Tern como hobby a eletrdnica e a microcompu-
tacao.
MICRO SISTEMAS, janeiro/84
Lojas
de
microcomputadores
a edicao anterior de MICRO
SISTEMAS, publicamos a pri-
meira parte dessa materia, que
constou de uma reportagem e de
uma tabela mostrando as lojas
revendedoras de micros de todo o
Brasil. Neste numero, damos continuidade e en-
cerramos a publicacao dessa tabela, um servico
ate entao inedito nos veiculos especializados.
Atraves dela, os leitores poderao identificar as
lojas mais proximas de sua cidade e escolher a
revenda a partir dos servicos que ela oferece.
Conforme ja foi dito, a tabela foi confeccio-
nada a partir de um questionario enviado a cerca
de 350 lojas, cujos enderecos foram conseguidos
atraves de pesquisa ao nosso arquivo e junto aos
fabricantes de micros (sendo que alguns en-
viaram sua lista de revendedores e outros nao
responderam nossa carta).
Somando-se a isso o numero quase diario de
revendas que sao inauguradas em todo o Brasil,
certamente algumas lojas nao receberam nosso
questionario, visto que nao sabiamos de sua exis-
tencia.
Portanto, voltamos a pedir que as novas lojas
revendedoras de micros passem a enviar para a
Redacao de MICRO SISTEMAS seus enderecos,
telefones e material informativo.
Observe na tabela que as questoes nao respon-
didas pelas lojas nos questionarios foram as-
sinaladas com um traco (— ).
.
CoordenagSo geral: Edna Araripe. Apuragao: Stela Lachtermacher, Graga Santos e Claudia Ramalho
MICRO SISTEMAS. janeiro/84
35
LOJA
ATIVIDADES
MICROS
PERIFERICOS
SUPRIMENTOS
REVISTAS
UVROS
SOFTWARE
VENDE?
DESENVOLVE?
ACACIA
(SP)
Software/system
house
CP-200. CP-300. CP-500. Maxx
Impressoras, grav cassete.
modems, unid disquete.
monitores. interfaces
Disquetes. papel p/
impressora
Mao
Sim, so naoonai
(fabric propria)
Sim. quaiquer tipo
A CAMBIAL
(R8J
Som, foto.
micros
TK85. CP-200. CP-500; HP-85.
CD-6809. PC 1211
Impressoras. grav cassete
unid disquete tv comum,
joystick
Fitas cassete. disquetes.
papel p/ impressora,
cxs p/ disquetes/ fitas
So
naoonais
Sim. so nacional
Sim. vmculado a
compra de equip
ALPHA
(RS)
Especiaiizada
em micros
BR-1000, D-8000. Alfa 3003
Alfa 2064
Impressoras. modems, unid
disquete. monitores
interlaces, teclados
Fitas cassete. disquetes
papei/iita p/ impressora
moveis
Nao
Sim. nacional e
estrangejro
Sim. vmculado a
compra de equip.
ARNO DECKER
(RS)
Som. micros
CP-200. CP-300. CP-500.
DGT-100. TK82-C, TK83. TK85
Grav cassete. unid.
disquete. |0ystick.
interfaces, teclados
Fitas cassete disquetes.
produtos de limpeza.
cxs p/ disquetes/fitas
Nao
Sim. so naoonai
(Microdigital)
Nao
BELL DO BRASIL
(MG)
Software/ system
house
Equips Kemitron. Proiogica
Impressoras. grav cassete
modems, unid disquete
monitores, joystick
plotadoras. interfaces
Fitas cassete. disquetes
papei/tita p/ impressora
So
naoonais
Nao
Sim, quaiquer tipo
BENV
(SP|
Especiaiizada
em micros
Equips. Proiogica,
Microdigital. Sysdata
Impressoras. grav cassete
monitores. tv comum
interfaces
Fitas cassete. disquetes,
papei/tita p/ impressora.
cxs p/ disquetes/fitas.
moveis
So
naoonais
Sim. nacional e
est range iro
(Microsoft.
labric propria)
Sim, quaiquer tipo
BUCKER
INFOHMATICA
(SP)
Especiaiizada
em micros
TK83, TK85. Maxxi; AP II.
JR Sysdata. ED-281 ED-381
Impressoras. grav cassete
modems, unid disquete.
monitores, joystick.
interfaces
Disquetes. papei/lita p/
impressora, cxs p/
disquetes/fitas arquivos
moveis
Naoonais e
estrangeiros
Sim, so naoonai
Sim, quaiquer tipo
BYTE SHOP
1MG1
Especiaiizada
em micros
DGT-100. DGT-101. CP-200
CP-300. CP-500. TK83,
TK85: Maxxi. Microengenho.
AP II. JR Sysdata. Naia.
equips Ouartzil. Schumec
Impressoras grav cassete
modems, unid disquete.
monitores. tv comum.
joystick plotadoras,
expansoes. interfaces
Fitas cassete. disquetes
papei/lita p/ impressora,
moveis
Naoonais e
estrangeiros
Sim, so naoonai
(Nasaion. Monk.
Digitus. Microsoft.
Sistron. Kitsis,
LHM. Knslianl
Nao
CAP
(AM)
Software/system
house
POLY 201 DP. Maxxi. CP-200.
CP-500. TK82-C
Impressoras. modems, unid.
disquete. monitores.
joystick, interfaces
Fitas cassete disquetes.
papel- iiia p/ impressora.
produtos de limpeza.
cxs p/ disquetes/fitas
arquivos, moveis.
estabilizadores. piso
(also, dutoplast — rodapes
p/ CPD s
So
naoonais
Sim. so naoonai
(CAP. Monk. Binah,
Polymax, Filcres)
Sim, quaiquer tipo
CASTRO
(SC)
Maqumas de
escrever. micros
CP-200. CP-300. CP-500.
Naia. Maxxi. JR Sysdata
Impressoras. modems, unid
disquete, monitores.
interfaces, teclados
Fitas cassete. disquetes
papei/lita p/ impressora,
produtos de limpeza.
cxs p/ disquetes/fitas. '
arquivos. moveis
So
naoonais
Sim. so nacional
(Monkj
Sim, quaiquer tipo
CHIP SHOP
(SP)
Software/ system
house
Equips Unitron. Spectrum.
Polymax. Dactron. Proiogica.
Digitus. Dismac, Sysdata.
Microdigital. Proiogica. Softec
Impressoras, grav cassete
modems, unid disquete.
monitores. tv comum
joystick, plotadoras.
interfaces, teclados
Fitas cassete. disquetes.
papei/tita p< impressora.
produtos de limpeza.
cxs p/ disquetes/ fitas.
arquivos, moveis
Naoonais e
estrangeiros
Sim, nacional
e estrangeiro
Sim, quaiquer tipo
COMERCIAL
SOGEMEC
(SPl
Maqumas de
escrever. micros
TK83. TK85. equips Polymax
Nao
Fitas cassete. disquetes
papei/tita p/ impressora.
arquivos, moveis
Nao
Sim, so nacional
(Sogemec)
Sim, quaiquer tipo
COMICRO
(PR. SC)
Especiaiizada
em micros
TK85. CP-200. CP-300. CP-500.
S-700, M C200. POLY 105 DP.
POLY 201 DP. Maxxi, AP II, EGO
Impressoras. modemsi unid
disquete, monitores.
tv comum. joystick
•plotadoras. estabilizadores
ATEC interfaces teclados
Disquetes papei/fita
p/ impressora
Nao
Sim, naoonai e
estrangeiro
Sim, vmculado a
compra de equip
COMPEEL
(DF)
Especiaiizada
em micros
TK82-C. TK85 CP-200 CP-300
CP-500 DGT-100 DGT-101
Maxxi. JR Sysdata. equips
Edisa
Impressoras. grav cassete.
unid. disquete. tv comum
joystick, interlaces
Fitas cassete. disquetes.
papei. Ma p/ impressora
Naoonais e
estrangeiros
Sim. so nacional
Nao
COMPUBEL
(PA)
Software/system
house
Equips Proiogica,
Microdigital. SID
impressoras. grav cassete.
modems, unid. disquete
monitores, joystick.
interfaces leciados
Fitas cassete disquetes;
papel/ tita p/ impressora,
cxs p. disquetes/fitas.
arquivos. moveis,
tudo p/ CPD
Sim. so naoonai
Sim vmcuiaoo a
compra de equip
COMPUCITY
(MG.
Especiaiizada
em micros
CP-200. CP-500 S-700.
AP II. Maxxi TK85 PC 1211
Impressoras grav cassete
modems unid disquete
monitores, ft .
plotadoras interfaces
teclados
Disquetes papei/titap/
impressora. produtos de
impeza cxs p. disquetes/
titas move*
Naoonais e
estrangeiros
Sim nacional e
estrangeiro
(Monk LHM
MicrosUr)
Sim, quaiquer tipo
COMPUMIDIA
(RS)
Especiaiizada
em micros
AP II. BR-1000
impressoras. modems unid
disquete monitores
plotadoras. interfaces
teclados
Disquetes papei/lita
p/ impressora
Nao
Sim. naoonai e
estrangeiro
iMicroStan
Sim. vmculado a
compra de equip.
COMPUSHOW
(DF)
Especiaiizada
em micros
TK82-C. TK85. CP-200 CP-300
CP-500. S-700. DGT-100,
Naia JR Sysdata. AP II,
Maxxi, Microengenho.
Ql 800 M-101/85
impressoras grav cassete.
modems, unid disquete.
monitores. tv comum,
joystick, plotadoras.
interfaces
Fitas cassete disquetes.
papei. tita p/ impressora,
cxs p/ disquetes/
fitas, arquivos, moveis
Naoonais e
estrangeiros
Sim. so nacional
(Monk. LHM
iodesis. Microbyte.
Microsoft e
autonomos)
Sim, quaiquer tipo
COMPUSYS
(SP)
Especiaiizada
em micros
CP-200, CP-300 CP-500,
S-700. TK82-C. TK85. D-8000
D-8001. Maxxi. AP II. PC 1211
impressoras. grav cassete
modems, unid disquete.
monitores, tv comum
joystick interfaces
Fitas cassete. disquetes;
papel/fita p/ impressora
cxs. p/ disquetes/
fitas. arquivos. moveis
Naoonais e
estrangeiros
Sim, nacional e
estrangeiro
(Compusys)
Sim. quaiquer tipo
COMPUTE
(SP)
Software/ system
house
TK83. TK85, CP-200, CP-300.
CP-500, AP II. JR Sysdata.
Maxxi. Microengenho. equips
Dismac. Digitus. Sharp
-
impressoras. grav cassete.
modems, unid disquete.
monitores. tv comum.
joystick; interfaces.
teclados
Fitas cassete, disquetes
papei/tita p/ impressora.
cxs p/ disquetes/
fitas. arquivos. moveis
Naoonais e
BStrangeiros
Sim. naoonai e
estrangeiro
Sim, quaiquer tipo
36
MICRO SISTEMAS. janeiro/84
CURSOS
assistencia
tecnica'
FORMA OE
FINANCIAMENTO
OUTROS PRODUTOS
ENDERECOS
CAL. PROG.
VIDEOGAMES
BA&C e outros curso
gratis na compra de micro
Nao. mas tern convemo
c/ lirma de manutencao
(Servcomp)
F inane Banco/
Financeira. leasing
Nao
Nao
Acacia Comercio Exportacao a Importacao Ltto.
Av Pauhsta. 2073. 2 ° and.. V 216/217. Edit Horsa 1 — Sao Paulo — SP
So to BASIC, cur sos
p empresas
Nao. mas encammha
ao fabncante
Financ propno
ate 15 meses.
leasing
HP-10C. HP-11C
HP-12C. HP-15C
HP-41CV. TI-58.
TI-59 TI-55II
Odissey
A Camoial — Fetole Feoli A FMhos Ltd*..
Rua Dr Floras. 348 — tel 26-3555 — Porto Alegre — RS
BASIC • Outros. Cursos p/
empresas curso gratis
na compra to micro
Sim, p( qualquer
equip nacionai
Leasing
Nao
Nao
ALPHA — Sistemas e Proceaaamentos Lfda.
Rua Gois Monteiro. 934. Bairro Sao Francisco — tei 252-2287 — Bento
GoncaJves — RS
Nao
Sim. p/ produtos
comprados na ioja
Financ propno
ate 10 meses
Nao
Atari/Polyvox.
Odissey.
Dactan
Arno Decker S.A. — Industrie e Comercio
Mainz Rua Dr Fiores. 116 — Porto Alegre — RS
Filial Galena Golden Center — tei 26-6321 — Canoas — RS
Soto BASIC cursos
p empresas
Sim. p/ qualquer
equip nacionai
Financ propno
ate 3 meses. financ
Banco/Fmanceira
Nao
Odissey
Bell do Braail Repreeentactos. Comercio e Industrie Ltto.
Av Joao Alves da Fonseca e Siiva. 1 131 — tel 351-3236 — Contagem —
MG
So o* BASIC curso gratis
na compra to micro
Sim. p/ prooutos
comprados na Ioja
Financ propno
ate 3 vezes; financ
Banco/Fmanceira;
leasing
Nao
Odissey
Beny Feira Permanente to Microcomputadores Ltto.
Rua Dommgos de Moraes, 407. Vila Mariana — Sao Paulo — SP
BAStC e Outros. Cursos p/
empresas. curso gratis
na compra to micro
Sim. p/ produtos
comprados na ioja
Financ propno
ate 6 meses.
tmanc Banco/
Fmanceira. leasing
Nao
Dactan
Bucker inlormatica Comercio to Computadores Ltda.
Av Reboucas. 1458 — tel 852-2086 e 282-3115 — Sao Paulo — SP
So oe BASIC cursos p/
empresas. curso gratis
na compra Oe micro
Nao. mas encammha
ao labncante
Financ propno
ate 3 meses. financ
Banco- Fmanceira.
leasing
Nao
Nao
Byte Shop
Rua Antonio de Albuquerque. 271. Savassi — Belo Honzonte — MG
BASIC e outros cursos
p/ empresas
Sim. p/ produtos
comprados na 101a
Financ Banco/
Fmanceira. leasing
CAP — Centro to Assessor* em Processamento de Dados Ltto.
Av Costa eSilva. 680, Betania— tel. 237-1 793 e 1033— Manaus — AM
So oe BASIC, cursos p
empresas curso gratis
na compra de micro
Sim p/ produtos
comprados na loia
Financ propno.
ate 24 meses tmanc
Banco/Fmancena
leasing consorcio
Lmha Hewlett
Packard. Texas
Instruments
Nao
Castro Comercio to Computadores e Maquinas Ltto.
Maim: Rua Vidai Ramos 30 — tei 23-0491 . 22-6933 e 22-6757 — Fiona-
nopohs — SC
Filial. Av Centenano. 3673/9 — tel 33-1436 — Cnciuma — SC
BASIC e outros. cursos p
empresas. curso gratis
na compra de micro
Nao. mas tern convemo c/
tirma oe manutenpao
(MS Eietronicai
Financ propno.
financ. Banco/
Fmanceira. leasing
Lmha Hewlett
Packard
Dactan
Chip Shop Computadores
Rua Ofena. 248. Jardim Pauhstano — tel 211-4261 — Sao Pauio — SP
So oe BASIC cursos
p/ empresas
Sim. p/ produtos
comprados na ioja
Financ propno
ate 5 vezes
Lmh3 Hewlett
Packard Texas
Instruments
Sharp
Nao
Comercial Sogemec Maquinas p/Escntono Ltda.
Rua Pruoente de Moraes. 679 — tei 34-2100 — Piracicaba — SP
BAS'C e outros
sos p< empresas
Sim. p/ produtos
comprados na loia
Fmanc Banco/
Fmanceira. leasing.
consorcio
Nao
Nao
Comicro Comercio e Manutencao to M'crocomputadores Ltda.
Maim Ai Presioente Taunay. 691 — tel 224-5616 — Cuntiba — PR
fiiiais Rua Padre Carios. 143. 1 and . si 5 — tei 33-7520 — Joinvilie —
SC/Edit SuiBrasiieno b ana si 602 — tei 23-0065— Londrma — PR
BASIC e outros. cursos
p/ empresas
Sim. p/ equips Digitus.
outras marcas sao
encammhadas ao
labncante
Financ propno
ate 4 meses tmanc
Banco/Fmanceira.
ieasmg
Nao
Nao
Compeei — Computaoores. Equipamentos Eletronicos e Servicos Ltda.
SCLN 102 bi A si 120 — tei 226-9201 — Brasilia — DF
BASIC e outros cursos
presas curso gratis
na compra oe micro
Sim, p/ produtos
compraoos na 101a
Financ propno
ate 4 vezes. tmanc
Banco/Fmanceira.
leasing, consorcio
Nao
Nao
Compubel Computadores, Sistemas e Suprimentos Ltda.
Tv Qumimo Bocaiuva. 1779 — tei 223-6319 — Beiem — PA
BASiC e outros cursos
p empresas curso gratis
na compra de micro
Sim. p/ equips
nacionais e estrangeiros
Fine Banco
Fmanceira. teasing
consorcio
Nao
Nao
Compucity — Comercio e Representacoes Ltda.
Rua Tome oe Souza 682 — tei 226-6336 — Beio Honzonte — MG
BASIC e outros cursos
p; empresas curso gratis
na compra oe micro
Sim. p/ produtos
comprados na ioja
Financ Banco/
Fmanceira. ieasmg
Nao
Nao
Compumidia — Produtos para Computacao Ltda.
Av Cnstovao Coiombo. 1370. cj 301 — tei. 22-5288 e 22-4859 — Porto
Aiegre — RS
So to BASIC cursos
p> empresas
Sim. p/ produtos
comprados na 101a
Fmanc propno
ate 4 meses. tmanc
Banco/ F manceira .
leasing, consorcio
Tl-59
Nao
Compushow Computadores Ltda.
SCRN 708/709. bi E. ij 10 — tei 273-2128 — Brasilia — DF
Sode BASIC, cursos
p/ empresas curso gratis
na compra de micro
Sim. p/ produtos
comprados na ioja
Financ propno.
financ Banco/
Fmanceira. leasing
consorcio
WN-100
Dactan
Odissey
Compusys Computadores e Sistemas Ltda.
Matm: Av 9 de )uiho 826. s/lj. — tei 635-1 195 — Ribeirao Preto — SP
filial Av Cei Ferreira Leite. 1540. l| 68. Ribeirao Shopping — tei 634-3135
BASlC e outros. cursos
p/ empresas. curso gratis
na compra de micro
Sim. p/ produtos
comprados na loia
Fmanc propno.
financ Banco/
Fmanceira. leasing
Lmha Sharp
Atari/ Polyvox
Odissey.
Dynavision
Compute Sistemas a Computadores Ltda.
Rua Estados Unidos. 2141. Jardim Pauiista — tel 231-1 173 e 231-1 197 —
Sao Pauio — SP
MICRO SISTEMAS, janeiro/84
37
LOJA
ATIVIDADES
MICROS
PERIFERICOS
SUPRIMENTOS
REVISTAS
UVROS
SOFTWARE
VENDE?
DESENVOLVE?
COMPUTER HOUSE
(SP)
Especiaiizada
em micros
TK82-C. TK83, TK85.
CP-200. CP-300. CP-500
Impressoras. grav. cassete.
modems, unid. disquete.
monitores; tv comum.
joystick, interlaces.
teclados
Fitas cassete: disquetes.
calibrador e modulador de
sinal (CMS/ZX)
Nacionais e
estrangeiros
Sim. so naoonal
(Abaco. Polisoft.
Microsoft)
Sim. qualquer tipo
COMPUTERLAND
(SP. RJ)
Especiaiizada
em micros
Equips Microdigital. Unitron.
Polymax. Dactron. Dismac.
Hewlett Packard. Sysdata.
Digitus
Impressoras. modems, unid
disquete. monitores. tv
comum. joystick, plotadoras
paddles, piacas de expansao.
piaca videx p/ impressora.
piaca CP/M. cartao p/
Pall/M puro. interfaces.
teclados
Fitas cassete. disquetes.
papel/fita p/ impressora;
produtos de limpeza,
cxs. p/ disquetes/ Mas.
arquivos, moveis
Nacionais e
estrangeiros
Sim. so nacionai
(LHM.
Computerworld.
Potenciai Software,
CCS, Approach.
Monk. Microsoft)
Sim. qualquer tipo
COMPUTRONIC
(RJ)
Software/system
house
Color 64, APPLY 300
Nlo
Disquetes. papei
p/ impressora
Nacionais e
estrangeiros
Nao
Sim. qualquer tipo
CONSULTORIA E
SiSTEMAS
(DF)
Sottware/system
house
Naia. JR Sysdata. APPLY 300.
DV-400, DV-600. DV-2000. OJ 800
Impressoras. grav. cassete.
unid. disquete. monitores.
joystick, interfaces
Fitas cassete. disquetes.
papel/lita p/ impressora.
cxs. p/ disquetes/
fitas. arquivos. moveis
Nacionais e
estrangeiros
Sim, nacionai e
estrangeiro
Sim. qualquer tipo
CPM
(SP)
Software/system
house
Maxxi. AP II. JR Sysdata.
Microengenho. CP-300. CP-500.
Naia. TK83. TK85. DGT-100.
DGT-101 . MG-8065
Impressoras. grav cassete.
modems, unid. disquete.
monitores. tv comum.
piacas de expansao.
interfaces; teclados
Fitas cassete, disquetes.
papel/fita p/ impressora.
produtos de limpeza.
cxs. p/ disquetes/fitas.
arquivos. moveis
Nacionais e
estranoeiros
Sim. so nacionai
(PSI. Binah. Ramo.
Softec. Sispro.
DB Micro.
Microstar.
Microsoft)
Sim. qualquer tipo
DATA SOLUTION
(SP)
Especiaiizada
em micros
CP-200. CP-300. CP-500.
Maxxi, TK85. Elppa. AP II
Impressoras. monitores.
joystick plotadoras.
interfaces
Disquetes. papel/fita
p/ impressora. cxs p/
disquetes/fitas. moveis
Nacionais e
estrangeiros
Sim. so nacionai
(Monk. LHM.
Microsoft)
Sim. qualquer tipo—
WO ADOS
(MG)
Software/system
house
TKS3. TK85. DGT-100;
JR Sysdata
Grav.cassete.unid. disquete
monitores. joystick
Disquetes. papel/
p/ impressora
Nao
Nao
Sim. qualquer tipo
DtSCOL
(PA)
Especiaiizada
em micros
TK82-C. TK83. TKB5, CP-200.
CP-300. CP-500. Maxxi
Impressoras. grav cassete.
modems, unid. disquete.
monitores. tv comum.
joystick, plotadoras.
interfaces
Fitas cassete. disquetes.
papel/fita p/ impressora.
produtos de limpeza,
cxs p/ disquetes/fitas.
arquivos. moveis
Nacionais e
estrangeiros
Sim. so nacionai
(Monk. Microsoft.
CCS)
Nao
ELDORADO
(RJ)
Especiaiizada
em micros
CP-200. CP-300. CP-500.
Maxxi. DGT-100; TK82-C.
TK83.TK85
Impressoras. grav cassete.
unid disquete. monitores.
joystick, interfaces
Fitas cassete. disquetes 1
papel/lita p/ impressora.
produtos de limpeza.
cxs. p/ disquetes/fitas.
arquivos. moveis. etiquetas
pastas p/ formulanos;
modulador de RF, expansao
de memona, piacas diversas
Nacionais e
estrangeiros
Sim. nacionai e
estrangeiro
(Kitsis. Monk.
Microsoft)
Sim. qualquer tipo
ENSICOM
<6P)
Software/system
house
TK83. TK85. JR Sysdata.
Naia. Microengenho
Impressoras. unid disquete.
joystick, interfaces '
Fitas cassete. disquetes.
papel/fita p/ impressora:
cxs. p/ disquetes/
fitas. arquivos: moveis
So
nacionais
Sim. so nacionai
(Microsoft.
Microdigital.
Prologica.
Sysdata)
Sim, qualquer tipo
ENTEC
(SC)
Especiaiizada
em micros
CP-200, CP-300. CP-500.
JR Sysdata. equips. Polymax.
Microdigital. Digitus
Impressoras. grav. cassete.
unid. disquete. monitores.
plotadoras. interface*.
teclados. controladores
numericos
Fitas cassete. disquetes,
papel/lita p/ impressora.
cxs. p/ disquetes/ fitas
So
nacionais
Sim. so nacionai
(Fabr propria.
Polymax. Monk.
LHM)
Sim. qualquer tipo
ERKLA
(SP)
Software/system
house
TK85; APII
Impressoras. unid. disquete.
monitores. joystick.
interfaces
Disquetes. papel/fita
p/ impressora
—
Sim. so nacionai
(Worm Software)
Sim. qualquer tipo
EXATRON
(SP)
Software/system
house
TK83. TK85. CP-200. CP-300.
CP-500. Maxxi. AP U
Impressoras. grav cassete.
unid. disquete. monitores.
interfaces
Fitas cassete. disquetes.
papel/fita p/ impressora.
cxs. p/ disquetes/
fitas. arquivos. moveis
So
nacionais
Sim. so nacionai
(Microsoft.
Sottscience)
— -
FOTOLEO
(SP)
Especiaiizada
em micros
CP-200. CP-300. CP-500.
Maxxi. AP II. TK82-C. TK83.
TKB5. JR SysdaU. ED-281.
ED-311.ED-381.PC1211
Impressoras. grav cassete:
unid. disquete. monitores.
tv comum. joystick
Fitas cassete disquetes.
papel/fita p/ impressora.
produtos de limpeza.
cxs p/ disquetes/ fitas.
moveis
Nacionais e
estrangeiros
Sim. so nacionai
(Fabric, propria)
Sim. qualquer tipo
!
FOTOPTICA
(SP)
Folo. som. micros
HP-65A. TK83.TK85. CP-300.
CP-500, Apple II Plus.
Microengenho; Maxxi
Impressoras. grav cassete.
umd' disquete. monitores.
tv comum: joystick
Fitas cassete. disquetes.
cxs. p/ disquetes/ fitas.
arquivos
Nacionais e
estrangeiros
Sim. so nacionai
(Microsoft. Micro s,
Monk. Knstiani
"
FRISSON
(SP)
Som. micros
AP II; Microengenho. equips.
Digitus. Sysdata. Polymax.
Microdigital. Protogica.
Hewlett Packard
Impressoras. grav. cassete.
modems; unid. disquete;
monitores. tv comum.
joystick, interfaces
Fitas cassete, disquetes,
papel/fita p/ impressora;
produtos de limpeza:
arquivos. moveis. cxs.
p/ disquetes/fitas
So
nacionais
Sim. so nacionai
(Monk. Microarte)
Sim. vmcuiado *
compra de equip
INFORMATtCA
(MG)
Software/system
house
Nap; Ol 800
Impressoras: unid disquete
Disquetes
Nao
Sim, so nacionai
(Fabric propria.
Sistron)
Sim. qualquer tipo
MFORMATIOUE
(RS)
Sotware/system
house
Microengenho; Alfa 3000.
Alia 3003. Alia 2064. DGT-100.
SID 3000; ED-281 ; CP-200.
CP-500. S-700; TK82-C.
TK83. TK85, D-«O00. D-8001.
D«X)2. D-8100, D-8101. D-8102.
D-8103; equips. Sharp
Impressoras; grav. cassete.
unid disquete.' monitores,
joystick, interfaces
Fitas cassete; disquetes;
papel p/ impressora
Nacionais e
estrangeiros
Sim. so nacionai
(Sottmax. Hypersoft.
Approach)
Sim. vmcuiado a
compra de equip
38
MICRO SISTEMAS. janeiro/84
CURSOS
ASSiSTENCIA
TECNICA
FORMA OE
FINANCIAMENTO
OUTROS PRODUTOS
ENDEREQPS
CAL PROG.
VIDEOGAME
BAS*C e cutros. curso
gratis na compra oe micro
Sim. p/ determmados
equips
Fmanc. propno
ate 6 meses. Imanc
Banco/Fmanceira.
leasing
Nao
Nao
Computer House
Maim Av Andrade Neves, 1254 — Campinas — SP
Filial Av Juscelmo Kubitschek. 28 — tel 252-5855 e 852-7739
So oe BASIC, cursos
• j'esas curso gratis
na compra de micro
Sim. p/ produtos
comprados na 101a
• Financ propno
ate 4 vezes. Fmanc
Banco/Fmanceira.
leasing, consorcio
Linha Dismac.
Hewlett Packard
Dae tan
Hobbygame.
Odissey
Computerland
Matnz. Av Angelica. 1996 — tel 231-3277 — Sao Pauio — SP
Fmais Av oos imares. 134— tel 531-4498— Sao Pauio — SP* Praia oe
Botatogo. 288, i| 114, Edit Argentina — tel 551-8942 — Rio oe Janeiro
— RJ/Av Barao de lapura. 917 — tel 32-4330 e31 -8498— Campinas— SP
Loias Iranqueadas em Sao Paulo Pro Som, Tape Som e Chip Shop
BASiC e oulros. cursos
p empresas
Sim, p/ equips,
nacionais e estrangeiros
Financ Banco/
Financeira. leasing
Nao
Nao
Computronic — Maser Material* e Servicos de Proces de Dados
Estr da Cacuia. 231 . si 312 liha do Governador — Rio de Janeiro — Rj
BASiC e oulros. cursos
p/ empresas. curso gratis
na compra de micro
Sim. p/ quaiquer
equip nacionai
Financ Banco/
Financeira
Nao
Nao
Conaultoria e Siatemas Ltda.
Centro Comercial Cruzeiro. s/l| 35 — tel 233-2310 e 567-3425 — Brasilia
— DF tCx. Postal 11-1285)
BASiC e oulros cursos
p/ empresas curso gratis
na compra oe micro
Nao. mas tem convenio
c/ lirma de manutencao
tServcomp. Dataroad, MS)
Financ propno
ate 3 meses, Imanc.
Banco/F inanceira .
Leasing, conso'roo
Nao
Nao
CPM — Central Panamencana de Micro Intormaiica Ltda.
Pea Ciovis Beviiacqua, 121.2 .' and —tel 32-7752. 34-3057 e 32-9946 —
Sao Pauio — SP
BAStC e outros. cursos
pv empresas curso gratis
na compra de micro
Nao. mas tem convenio
c tirma de manutencao
(Servcomp)
Financ Banco/
Financeira, leasing.
consorcio
Nao
—
Data Solution
Av Euzebio Matoso. 654 — tel 813-3355— Sao Pauio — SP
So oe BASIC, cursos
p. empresas
Nao. mas encaminha
ao tabncante
Financ propno
ate 3 meses
Nao
Nao
Didaoos — Intormaiica e Administracao Ltda.
Rua Minas Gerais. si. $02 — tel 221-2004 — Divinopons — MG
Nao
Sim. p/ produtos
comprados na loia
Financ propno
ate 4 meses. Imanc
Banco/Fmanceira.
leasing
Nao
Odissey
Ditcol — Telecomunicacoes e Intormatica Ltda.
Rua 28 de Setembro. 746 — tel 222-5122 e 224-1751 — Beiem — PA
BAStC e oulros cursos
p/ empresas curso gratis
na compra de micro
Sim p/ equips nacionais e
estrangeiros
Financ propno
ate 3 vezes. tmanc.
Banco/Fmanceira.
leasing
Nao
Nao
Eldorado Computadores e Siatemas Ltda.
Rua Visconoe de Piraja. 351. i|S 213/214 — tel 227-0791 — Rio de
Janeiro -*- Rj
BASIC e outros. cursos
p empresas
Nao. mas encammha
ao tabncante
Financ propno
ate 3 meses. tmanc
Banco' Financeira
leasing
Nao
Nao
Enaicom Engenhana de Sistema* e Computadores Ltda.
Rua Marques ao Hervai. 409. l«ano , si 15 — tel 33-2944 — Taubate — SP
So oe BASIC, cursos
p> empresas curso gratis
na compra de micro
Sim, p/ micros protissionais.
pessoais e equips de
controle industrial
Financ Banco/
Financeira, leasing
Nao
Nao
Entec Representacao Ltda.
Rua Lauro Mulier, 700 — Itajai — SC
BASIC e outros cursos
p/ empresas
Nao. mas encaminha
ao tabncante
Financ. Banco/
Financeira. leasing
Nao
Nao
Erkla Cursos. Kits, Laboratories de Eletronica
Maim. Rua Dr Veiga Filho. 522 — tel 67-7793 — Hig.enopoiis — SP
Filial. Av Pacaembu. 1261 — tel 826-1499. 67-8339 e 8264464
BASIC e outros. curso*
p/ empresas curso gratis
na compra de micro
Nao. mas tem convenio
c/ tirma de manutencao
(Servcomp)
Financ. propno
ate 3 meses. tmanc.
Banco/ F manceira .
leasing
Nao
Nao
Exatron Intormatica
Alameda dos Arapanes. 841 — tel 542-1917 — Sao Pauio — SP
BASIC e outros cuisos
p/ empresas. curso grans
na compra de micro
Sim. p/ produtos
comprados na loia
Financ. propno
ate 24 meses: Imanc
Banco/ Financeira
leasing
Nao
Dactan
Fotoleo Comercio e Industrie Ltda.
Av Sao Joao. 25. Centro — Sao Pauio — SP
Cursos p' empresas. curso
gratis na compra de micro
Nao. mas encaminha
ao tabncante
Financ propno
ate 10 meses. tmanc
Banco/Fmanceira.
leasing
Linha Hewlett
Packard. Texas
Instruments.
Sharp
Odissey.
Atan/Polyvox,
Dactan
Fotoptica Computadores e Calculadoras
Maim Al. Jurua. 434 — tel 421-5211 — Baruen (Aiphaville) — SP (Centro
Administrative)
Filial; Av Reboucas. 2315
Curso gratis na
compra oe micro
Sim. p/ produtos
comprados na loia
Financ Banco/
Financeira, leasing,
consorcio
Lmha Hewlett
Packard
Odissey.
Dactan. Atari
Poiyvox
Frisson Equipamentos de Som Ltda.
Rua Bernardino de Campos. 345 — tel 412-3428 e 449-6212 — Santo
Andre — SP
BASIC e Outros Cursos
p. empresas
Nao. mas tem convenio
c/ lirma de manutencao
(Oistec)
Financ propno
ate 4 meses. tmanc
Banco/ Financeira
leasing
Nao
Nao
Intormatica Assessoria e Processamento de Dados Ltda
Av Antonio Olimpio de Morais, 290/308 — Divmopolis — MG
BASIC e outros cursos
p/ empresas. curso gratis
na compra de micro
Sim. p/ produtos
comprados na loja
Financ Banco/
Financeira. leasing
Nao
Nao
intormatique — Onix Comercio e Servicoa de Equip. Eletronicos Ltda.
Av Independence. 383. i| 114/115— tel 21-4189— Porto Alegre— RS
MICRO SISTEMAS. janeiro/84
39
LOJA
ATIVIDAOES
MICROS
PERIFERICOS
SUPRIMENTOS
REVISTAS
UVROS
SOFTWARE
VENDEV
DfcSfcNVOLVE?
INFORMAX
(SP)
Especiaiizada
em micros
CP-200. CP-300. CP-500.
equips. Unitron. Microdigital
Impressoras, grav cassete.
modems, unid disquete,
monitores. tv comum.
joystick, plotadoras.
interlaces
Pitas cassete, disquetes.
papel/fita p/ impressora,
cxs p' disquetes/
litas. arquivos. moveis
Nao
Sim. nacional
e estrangeiro
Sim, qualquer tipo
IPANEMA MICRO
(RJ)
Especiaiizada
em micros
TK82-C. TK83. TK85. DGT-100;
CP-500. AP II. Microengenho
Impressoras. grav cassete.
modems, tv comum. joystick,
interfaces expansao p/ tv.
smtetizador de voz
(Digitus)
Fitas cassete. disquetes.
papel p/ impressora. cxs
p/ disquetes/fitas
Nacionais e
est range* ros
Sim. so nacional
(Microsoft
Microideia)
Sim. qualquer tipo
KALHAU
(RJ)
Especiaiizada
em micros
DGT-100. DGT-101. TK83. TK85.
APPLY 300. equips Schumec
Impressoras. grav. cassete.
modems, unid disquete.
monitores. tv comum.
joystick, interfaces
Fitas cassete, disquetes.
papel/fita p/ impressora.
produtos de limpeza.
cxs. p/ disquetes' Mas
arquivos, moveis
Nacionais e
estrangeiros
Sim. so nacional
(Nasajon. Digitus.
Microsoft)
Sim, qualquer tipo
KEMITRON
IMG)
Especiaiizada
em micros
Naja TK83. TK85, CP-300.
CP-500; JR Sysdata
Impressoras. grav cassete.
modems, unid disquete
monitores. tv comum,
joystick, plotadoras,
interfaces, teciados
Fitas cassete. disquetes;
papel' tua p/ impressora.
produtos de limpeza.
cxs. p' disquetes/iitas
arquivos
So
nacionais
Sim. nacional e
estrangeiro (LHM.
Sistron. Monk)
Nao
KOMPUTER HAUS
(PR)
Solware' system
house, eleironica
micros
Microengenho. DACTRON-E.
CP-200. CP-300. CP-500
Impressoras. grav cassete.
modems, unid disquete.
monitores. joystick
Fitas cassete. disquetes
So
nacionais
Sim. so nacional
(Potencial
Software)
Sim. qualquer tipo
LHM
(RJ. RS)
Software' system
house (matnz).
micros
Naia Maxxi. AP II. matnz
TK85. filial. DGT-100
Impressoras. grav. cassete.
unid disquete monitores,
interfaces, teciados.
matnz: tv comum.
filial: joystick, piacas
expansao 16 K. 48 K e
128 K. ventiladores
p/ fonte de CPU
Fitas cassete. disquetes.
fitas p/ impressora. cxs
p/ disquetes/fitas,
moveis; matnz. arquivos.
Iilial: papel p/ impressora
Nacionais e
estrangeiros
Sim, so nacional
(Fabric propria)
Sim. qualquer tipo
LIDADOS
(SP)
Especiaiizada
em micros
TK82-C. TK85. CP-200. CP-300,
CP-500. S-600. S-700; AP II
Impressoras, grav cassete.
unid. disquete. joystick
Fitas cassete. disquetes
papel/fita p' impressora.
cxs. p/ disquetes/fitas
Nacionais e
estrangeiros
Sim. so nacional
Sim. vmcuiaoo a
compra de equip.
LOGICA
(BA)
Especiaiizada
em micros
TK82-C. TK83. TK85; CP-200.
CP-300. CP-500. S-600.
S-700; DGT-100. DGT-101,
Microengenho; equips. Scopus
Impressoras, grav cassete:
modems, unid. disquete.
monitores. joystick.
interfaces
Fitas cassete. disquetes.
papel/fita p/ impressora
Nacionais e
estrangeiros
Sim. so nacional
(Monk. Microarte.
Microsoft, Knstian,
Prologica. Digitus.
EAG-Engenhana
de Sistemas)
Sim. qualquer tipo
MAESTRO
(RJ)
Som. micros
TK85. DGT-100
Grav. cassete. uma
disquete. monitores.
joystick, interlaces
Fitas cassete. disquetes
Nao
Sim, so nacional
(Digitus.
Microdigital)
Sim. qualquer tipo
MEMOCAR08
(SP)
Especiaiizada
em micros
TK82-C, TK85. CP-200, CP-300,
CP-500. NE-Z8000. MT 300,
DGT-100. Maxxi.
PC 1211 RP, PC 1211 R
Impressoras. grav cassete.
modems; unid disquete.
monitores. tv comum.
joystick plotadoras.
interfaces
Fitas cassete. disquetes.
papel/fita p/ impressora.
cxs. p/ disquetes/titas
Nacionais e
estrangeiros
Sim. so nacional
(Microdigital.
Prologica. Micron.
SoftKristian.
Monk. Nasajon.
LHM. Sottscience)
Sim, qualquer tipo
METALDATA
(RS)
Software^ system
house
TK82-C, TK85; CP-200, CP-500,
S-700; D-8000. Alfa 3003.
Alfa 2064, Maxxi. POLY 201 DP,
Microengenho. CD-6809
Impressoras. grav cassete.
modems, unid disquete.
monitores. tv comum,
joystick, interfaces,
teciados
Fitas cassete. disquetes.
papel/fita p/ impressora.
cxs p/ disquetes/fitas.
moveis
Nacionais e
estrangeiros
Sim. so nacional
(Metaldata. Monk)
Sim. qualquer tipo
MICRO HOUSE
(RJ)
Especiaiizada
em micros
CP-200. CP-300, CP-500,
AP II. Maxxi; TK85
Impressoras, grav cassete.
unid. disquete, monitores,
Fitas cassete, disquetes.
papel p/ impressora,
moveis
So
nacionais
Sim, so nacional
(Microideia.
Monk. Microsoft)
Sim. qualquer tipo
MICROINFORMATICA
(RJ)
Especiaiizada
em micros
CP-200, CP-300. CP-500. S-600
TK83, TK85. DGT-100.
JR Sysdata Naja. equips
Unitron. Appletronic
Impressoras. grav cassete.
modems, unid disquete.
monitores; tv con
joystick
Fitas cassete disquetes.
papel p. impressora.
moveis
Nacionais e
estrangeiros
Sim. so nacional
Sim, qualquer- tipo
MICRO MAXI
(RJ)
Software' system
house
CP-500. S-600. S-700.
TK82-C. TK85
impressoras
Nao
Sim. so nacional
Sim. qualquer tipo
MiCROM
(SP)
Soltware/system
house
TK85 JR Sysdau. ED-281
Grav cassete joystick
Fitas cassete. disquetes
papei/tita p/ impressora,
cxs p disquetes/fitas
arquivos. moveis
So
nacionais
Sim so nacional
(Edisa. Cobra.
SiD. Prologica)
Sim, qualquer tipo
MICROMEGA
(RS)
Software/system
house
TK82-C. TK85; CP-200. CP-300.
CP-500; DGT-100; Maxxi.
Microengenho. JR Sysdata,
PC 1211 R. PC 1211 RP
Impressoras. grav cassete.
unid. disquete. monitores.
tv comum; joystick.
interfaces
Disquetes. papel/fita
p/ impressora
So
nacionais
Sim. nacional
e estrangeiro
Sim, qualquer tipo
MiCRONEWS
(RJ)
Especiaiizada
em micros
TK83, TK85. CP-200, CP-300,
CP-500. DGT-100
Impressoras. unid. disquete.
monitores; joystick
Fitas cassete, disquetes.
papel/fita p/ impressora,
produtos oe limpeza;
cxs. p/ disquetes/fitas
Nacionais e
estrangeiros
Sim. so nacional
(Monk, Nasajon)
Nao
MtCROSHOW
(RJ)
Especiaiizada
em micros
CP-200. CP-300. CP-500.
S-600. S-700; HP-85
Impressoras
Disquetes. papel/fita
p/ impressora
Nao
Sim. so nacional
(Digidata)
Sim, qualquer tipo
40
MICRO SISTEMAS, janeiro/84
CURSOS
ASSISTENCIA
TECNICA
FORMA DE
FINANC lAMENTO
OUTROS PRODUTOS
ENDERECOS
CAL. PROG.
VIDEOGAMES
BASiC • outros cursos
p- empresas
Nao. mas tern convenio
com a Computec
F mane Banco/
Financeira. leasing.
consorcio
Nao
Nao
Informal
Av Bngadeiro Fana Lima. 1857 — lei. 814-0682 — Sao Pauio — SP
So oe BASIC
Nao. mas encaminha
ao fabncame
F mane. Banco/
Financeira
Nao
Top-Game
ipanema Micro — Computer •shop Eletronica Ltda.
Rua Visconde de Piraja. 540. i| 310 — tel 259-1516 e 274-5594 — Rio cie
Janeiro — RJ
BASiC • oulros cursos
p/ empresas
Nao. mas encaminha
ao fabncante
Financ propno.
leasing
Nao
Nao
Kalhau Engenhana Ltda.
Pea Tiradentes. 10. si 402. Ceniro — tel 252-2752 — Rio de Janeiro — Rj
Nao
Sim. p/ produtos
comprados na 101a
Financ propno
ate 5 meses. financ
Banco/Fmanceira.
teasing
Nao
Nao
Kemitron Ltda.
Av Contorno. 6048. Sdvassi — tel 225-0644 — Beio Horizon te — MG
BAStC e oulros cursos
p/ empresas
Sim. p/ produlos
comprados na loia
Financ propno.
financ. Banco/
Financeira
Odissey.
Atan/Polyvox
Komputer Video Hauss — Com. deMicrocompuladores e
Jogos Eletronicos Ltda.
Av Higienopolis. 925. i| 5. Shopping Via Per Tutti — tel 23-5061 —
Londnna — PR
Uaim BASIC e Oulros
so de BASIC.
cursos p/ empresas.
cur so gratis na
compra oe micro
Sim. p. produlos
comprados na loia
Financ propno
ate 3 meses Imanc
Banco/Financeira.
leasing
Nao
Maim
Odyssey
Dactan
LHM Comercio e Representeceo Ltda.
Mainz Av Franklin Roosevelt. 23, gr 1203/4/5— tel 220-7979 — Rio oe
Janeiro — RJ
Filial. Computche — Av Independence, 599 — tei 26-6466 — Porto
Aiegre — RS
So oe BASIC, cursos
O empresas. curso grans
na compra ae micro
Sim. p/ produtos
comprados na loja
Fmanc Banco/
Financeira. consorcio
Nao
Nao
Lidados Servicos e Comercio de Computadores Ltoa.
Rua Sete de Setembro. 876 — lei 41-3513 — Limeira — SP
BASiC e oulros cursos
D empresas curso gratis
na compra de micro
Sim. P' equips naaonais
e estrangeiros
Financ propno
ate 6 meses. leasing
Nao
Nao
Logica — Computadores e Sistema* Ltda.
Ai Antunes. 01. i| 02. Barra Avenida — tei 235-4184 — Salvador — BA
So ae BASIC
Sim. p/ equips nacionais
e estrangeiros
Financ propno
ate 6 meses. Imanc
Banco/Fmanceira.
leasing
Nao
Atary/Poiyvox
Maestro Equipamentos de Som Ltda.
Maim Av Pasteur. 184. i| J — tel 295-81 94 e 542-3849— Rio oe Janeiro
-RJ
Fmai Tv Ouvidor, 37. 2 ." and — tel 221-5040 — Rio de Janeiro — Rj
BASiC e outros cursos
p/ empresas curso gratis
na compra de micro
Sim. p/ equips nacionais
e estrangeiros
Financ propno.
financ Banco/
Financeira. leasing
consorcio
Nao
Nao
Memocards Materials Didaticos Ltda.
Rua Amador Bueno. 855 — Ribeirao Preto — SP
BASiC e outros cursos
p/ empresas curso gratis
na compra de micro
Nao. mas tern convenio
C/ lirma de manutencao
(Disco)
Financ propno
ate 5 vezes. financ
Banco/Fmanceira.
leasing
Nao
Dynavision
Metaklata Engenhana e Processamento Ltda.
Maim: Rua Alvaro Chaves, 154, ci 302— tei 22-3151 — Porto Aiegre— RS
Filial. Rua Qumtmo Bocaiuva, 27. l| 14 — tel 22-3151 — Porto Aiegre— RS
BASiC e outros cursos
o- empresas
Nao, mas tern convenio
c/ lirma de manutencao
(Sistema)
Financ propno
ate 3 meses. financ
Banco/Fmanceira.
leasing
Nao
Nao
Micro House Comercio e Representacoes Ltda.
Rua Visconde de Piraia. 547, si 307. ipanema — tei 294-6246 — Rio oe
Janeiro — RJ
So oe BASIC, cursos
p. empresas
Sim. p/ produtos
comprados na loja
Financ Banco/
Financeira
Nao
Nao
Microintormatica Computadores Pessoeis Ltda.
Av Atauito de Paiva. 566. l|. 21 1 — tel 239-2798 — Rio oe Janeiro — Rj
BASIC e outros. cursos
p. empresas. curso gratis
na compra de micro
Nao. mas encaminha
ao fabncante
Financ Banco/
Financeira. leasing
Nao
Nao
Micro Maxi Computadores e Sistemas Ltda.
Matm Pea Oiiveira Botelho. 154 — tel 54-1 135 e 54-1522 — Resenoe —
RJ
Filial: Rua Cei Rocha Santos. 46 — tel 54-1644 e 54-2031 — Resenoe —
RJ
BASIC e outros. cursos
p/ empresas curso gratis
na compra de micro
Nao. mas encaminha
ao fabncante
Financ propno
ate 4 meses, fmanc
Banco/Fmanceira.
leasing
Nao
Nao
Micron — Seno Comercio nepreeentacso Administreceo Ltda.
Av Alberto Andalo. 3131. 1 ° and., si. 2 — tel 32-0600 e 32-5887 — Sao
Jose do Rio Preto — SP
BASIC e outros. cursos
p/ empresas
Nao. mas tern convenio
C/ firma de manutencao
(Mundiai — Radio
Eletrica Ltda.)
Financ Banco/
Financeira. leasing
Nao
Dynavision
Mtcromega Computadores e Sistemas Ltda.
Rua Julio de Castilhos. 441 . 1 ° and — tel 93-4721 — Novo Hamburgo —
RS
So oe BASIC, curso gratis
na compra de micro
Nao. mas encaminha
ao fabncante
Financ Banco/
Financeira. leasing
Nao
Nao
Micronews Comercio e Servicos Ltda.
Rua da Assembieia. 10, 33 and . si 3317. Edif Centro Candido Mendes
— tei 252-9420 — Rio de Janeiro — RJ
BASiC e outros cursos
p/ empresas cursos gratis
na compra de micro
Sim. p/ equips
Proiogica
Financ. propno
ate 5 meses, fmanc.
Banco/Fmanceira.
leasing, consorcio
HP-41CV, HP-97A
Nao
Microahow Comercio de Computadores e Servicos Ltda.
Malm: Rua Fiqueira de Meio. 425 1 ° and . Sao Cnstovao
— tel 264-5797 — Rio de Janeiro — RJ
Filial: Rua Frolick. 31. 3° and . Sao Cnstovao — tel 234-4751 — Rio de
Janeiro— RJ/Av Copacabana l|. BeC — tel 256-4181 — Rio de Janeiro
— RJ/Campo de Sao Cnstovao. 87. 5° and — tel 228-8183 — Rio de"
Janeiro — RJ
MICRO SISTEMAS, janeiro/84
41
LOJA
ATIVIDADES
MICROS
PERIFERICOS
SUPRIMENTOS
REVISTAS
LIVROS
SOFTWARE
VENDE?
DESENVOLVE?
MICROSIS
(RS)
Especializada
em micros
Maxxi. TKB3. TK85 DGT-100.
JR Sysdata. equips Proiogica.
PC 1211
Impressoras. modems, unid
disquete. monitores.
joystick, interlaces
Fitas cassete. disquetes.
papei/fita p/ impressora.
cxs p/ disquetes. Mas
Nacioncis e
estrangeiros
Sim. so nacionai
(Codesis. Apiitec.
Monk. Nasajon)
Sim, qualquer tipo
MICROTEC
(RS)
Especializada
em micros
AP II. Maxxi. Microengenho:
D-8000 D-8001 JR Sysdata.
Dactron. Apple II Plus. equips
Digitus. Microdigital
Impressoras. unid. disquete.
monitores. tv comum.
joystick, interlaces.
teclados
Fitas cassete. disquetes.
papei'Ma p/ impressora.
produtos de limpeza.
cxs. p/ disquetes/fitas
So
nacionais
Sim. so nacionai
(Microsoft.
Computenworld.
Monk. Potencial)
Sim, qualquer tipo
MIKRO INFORMATICA
(MG)
Software/system
house
CP-200. CP-30C. CP-500.
TK83. TK85
Impressoras. grav
cassete. tv comum
Nao
Nao
Sim. so nacionai
(KltSIS)
Sim. qualquer tipo
MINAS DIGITAL
(MG)
Especializada
em micros
CP-200. CP-500. S-700. TK85.
DV-600. DV-2000. DGT-100. Naja
Impressoras. grav cassete
modems, unid. disquete.
monitores. joystick,
piotadoras. interlaces.
teclados
Fitas cassete. disquetes.
papei'Ma p/ impressoras.
cxs p/ disquetes/ fitas
Nacionais e
estrangeiros
Sim. so nacionai
(Monk. Micron.
Microsoft,
fabric, propria)
Sim, qualquer tipo
OMNICOM
(MG)
Sottware/system
house
Naia. TK82-C. TK85
Impressoras. grav cassete.
unid. disquete. monitores
Nao
Nao
Sim, so nacionai
Sim, qualquer tipo
PRODADOS
(DF. GO)
Software/system
house
Todos
impressoras. grav cassete
joystick piotadoras.
interlaces
Fitas cassete. disquetes.
papei/fita p/ impressora.
produtos de limpeza
Nacionais e
estrangeiros
Sim. so nacionai
Sim, qualquer tipo
PRODAMIC
(MG. ES)
Soltware/system
house
DGT-100 BR-1000
Nao
Disquetes
Nao
Sim, nacionai e
estrangeiro
(Microsoft.
Cromenko)
Sim, qualquer tipo
REGIS STUDIO
(MG)
Som. micros
CP-200. CP-300 CP-500
TK82-C. TK85
Grav cassete. tv comum
Disquetes
Nao
Sim, so nacionai
(Monk. Micro s)
Nao
RENAUX
(SC)
Lojade
departamentos
TK83. TK85. CP-200. CP-300.
CP-500. S-600. Maxxi.
PC 1211 RP
Impressoras, grav cassete.
unid disquete. tv comum
Fitas cassete. disquetes.
papei/lita fW impressora
So
nacionais
Sim. so nacionai
(Monk. Suporte)
Nao
RIO MICRO
(RJ)
Especializada
em micros
Equips. Digitus. Microdigital
Impressoras. grav cassete.
unid disquete. monitores.
tv comum, joystick.
interfaces teclados
Fitas cassete. disquetes,
papei p/ impressora. cxs
p/ disquetes/fitas. moveis
Nacionais e
estrangeiros
Sim. so nacionai
Sim. qualquer tipo
RIT2
(SP)
Software/ system
house
CP-200, CP-300. CP-500. Maxxi
TK82-C. TK85. PC 1211 RP
Impressoras, grav cassete
unid. disquete. monitores
Fitas cassete. disquetes
Nao
Sim. so nacionai
(Monk. Codesis.
fabric propria)
Sim. qualquer tipo
SHOP-COMPUTER
(PR)
Especializada
em micros
TK82-C. TK85. JR Sysdata.
CP-200. CP-300. CP-500. S-700
Impressoras. grav cassete
unid disquete. monitores.
joystick
Fitas cassete. disquetes
papei/fita p< impressora.
cxs. p/ disquetes/
Mas. arquivos. moveis
So
nacionais
Sim. so nacionai
(Microsoft. Micro s.
Micron)
Sim. qualquer tipo
SISCOMP
(CE)
Sottware/system
house
TK82-C TK83 TK85 CP-200.
CP-300. CP-500. S-700. DGT-100.
DGT-101. JR Sysdata
Impressoras, grav cassete.
unid disquete. monitores.
tv comum, joystick
piotadoras. interlaces, teclados
Fitas cassete. disquetes
papei/fita p/ impressora.
cxs p/ disquetes/
Mas. moveis
Nacionais e
estrangeiros
Sim. so nacionai
(Monk)
Sim. qualquer tipo
SISDATA
(BA)
Especializada
em micros
Equips Brascom. Digitus
mpressoras. unid disquete.
monitores
Disquetes. papei/fita
p. impressora. cxs p/
disquetes/ Mas.
moveis
Sim. so nacionai
(Brascom. Digitus)
Sim. vmcuiado a
compra de equip
SISTEMATIKA
(RS)
Especializada
em micros
TK82-C. TK85. CP-200. CP-300.
CP-500. DGT-100. AP II.
CP-500. Maxxi. POLY 105 DP
POLY 201 DP. POLY 301 AP
JR Sysdata
mpressoras. unid disquete.
monitores. joystick
interlaces, teclados
Fitas cassete. disquetes.
papei/tita p/ impressora.
produtos de umpeza.
cxs p/ disquetes/Mas.
arquivos moveis
estabinzadores e
no-Dreao ATEC
So
nacionais
Sim. so nacionai
(Microsoft Binah.
Codesis. Monk.
Nasajon. Ramo.
fabric propria)
Sim. qualquer tipo
SOUZA S COMPUTER
CENTER
(PEi
Especializada
em micros
TK83. TK85. CP-200. CP-300.
CP-500 DGT-100 AP ii
Microengenho Maxxi
impressoras grav cassete
modems unid disquete
monitores tv comum
joystick interlaces
Fitas cassete
disquetes
Naciona>s e
estrangeiros
Sim so nacionai
Sim. vmcuiado a
compra de equip
STRING COMPUTER
SHOPPING
iRji
Especianzada
em micos
CP-200. CP-300 CP-500 S-600
Maxxi TK83. TK85 TK 2000
Color. Naja. Microengenho
DGT-1000. PC 1211 RP
impressoras grav cassete
modems unia aisquete
monitores tv comum
joystick interfaces
Fits cassete disquetes
papei/Ma p/ impressora
cxs p disquetes' fitas
Nacionais e
estrangeiros
Sim. so nacionai
(Micron Microsoft.
String)
Sim. qualquer tipo
SUPRIMENTO
(RJ)
Especializada
em micros
JR Sysdata Maxxi
mpressoras. unid disquete
monitores. interfaces
Disquetes papei/fita
p/ impressora cxs p.
disquetes arquivos
racks
ettquetas. pastas diversas
rebobmagem de
impressora
So
nacionais
Sim. so nacionai
Sim. qualquer tipo
TESBI
(RJ)
Sottware/system
house
DGT-100 DGT-101 . TK83. TK85.
Alia 2064. D-8001. D-8002
-D-6100 Maxxi CP-200 CP-300
CP-500. S-700
Impressoras. grav cassete
unid disquete monitores.
joystick, interlaces
Disquetes. papei/
p/ impressora
Nacionais e
estrangeiros
Sim. so nacionai
(Polymax. Digitus,
Proiogica.
fabric propria)
Sim, qualquer tipo
WORK-SHOP
(MGi
Especianzada
em micros
TK85 DGT-100 Microengenho
mpressoras. grav cassete.
unid disquete
monitores joystick
Fitas cassete.
disquetes
Nao
Sim. so nacionai
(Work)
Sim, qualquer tipo
42
MICRO SISTEMAS, janeiro/84
CURSOS
ASSISTENCIA
TECNlCA
FORMA DE
FINANCIAMENTO
OUTROS PRODUTOS
ENDERECOS
CAL. PROG.
VIDEOGAMES
BASIC e oulros. cursos
p empresas curso gratis
na compra de micro
Nao. mas encammha ao
labncante. tern convenio
C/ tirma de manutencao
F mane Banco/
Financeira, leasing.
consorcio
Nao
Dynavision
Microti* Computadores • Sistemas Ltda.
Mainz Rua Mosiardeiro. 291 . ci 404 — tei 22-9782 — Porto Aiegre — RS
filial Av Joao Waiiig 1800. Shopping Center Iguatemi. JW-17 — tei
34-0660 — Porto Aiegre — RS
BASIC e oulros. cursos
p. empresas. curso gratis
na compra oe micro
Nao. mas tern convenio c/
lirma de manutencao
F inane propno
ate 4 meses. tmanc
Banco' F manceira .
leasing
Lmha Hewlett
Packard. Dismac
Dactan.
Dynavision
Microtec Computadores • Sistemas Ltda.
Rua Gai Lima e Suva. 389 — Porto Aiegre — RS
BASIC e ouuos. cursos
p empresas curso gratis
na compra de micro
Nao mas encammha
ao labncante
F mane propno
ate 3 meses tmanc
Banco/ Fmanceira
leasing
Lmha Sharp
Nao
Mikro Intormatica Ltda.
Av Atonso Pena. 952. si 627 — Beio Honzonte — MG
BASIC e oulros cursos
p/ empresas
Sim. p/ equips
nacionais e estrangeiros
F mane propno
ate 4 meses. tmanc
Banco' Fmanceira
leasing, consorcio
Nao
Nao
Mmas Digital Ltda.
Mainz Rua Tupmambas 1045 c| 602 — tei 201-7555 — Beio Honzonte
— MG
Final Rua Tome oe Souza. 860 ij B Savassi — Beio Honzonte — MG
BASIC e oulros. cursos
p. empresas. curso gratis
na compra de micro
Nao. mas encammha
ao labncante
Fmanc propno
ate 3 meses
Nao
Nao
Omnicom — Enganhana • Processamento de Dados Ltda.
Av Contorno 842. 5 ana — tei 222-401 1. r 262 — Beio Honzonte — MG
BASIC e outros. cursos
p ( empresas. curso grans
na compra de micro
Sim. p/ quaiquer
equip nacionai
Fmanc propno
ate 3 meses
Nao
Nao
Prodados — Intormatica. tnsino Tecnico a Arte* Ltda.
Mainz W3 Sui. qo 506. bi C — tei 244-3505 — Brasilia — OF
Fmais Vv3 None, qo 504 — tei 226-2374 — Brasilia — DF' Lago Sui qo 3
bi E — tei 248-5030 — Brasilia — DF/Taguatinga. Edit Paranoa Center
— tei 561-3307 — Brasilia— DF/Av Anhanguera. Eoii PaiaciO Comeroo
— tei 225-0022 — Goiama — Gdas
So de BASIC, cursos
p/ empresas
Sim, p/ equips,
nacionais e estrangeiros
Fmanc Banco/
Fmanceira. teasing
Nao
Nao
Prodamic — Processamento d« Dados a Consuitona Ltda.
Maim Av Cnstovao Colombo, 519, si 306 Savassi — tei 225-2469 —
Beio Honzonte — MG
Fmai Edit Viia Rica, bi D 301. Bairro Jardim Cambun — Vitona — ES
Nao
Sim, p/ prooutos
compraoos na 101a
Fmanc propno
ate 6 meses 1 inane
Banco/ Fmanceira
Nao
Alan/ Poiyvox,
Odissey
Regis Cine Foto Som Ltda.
Pea JoaoPmheiro 15. Edit Top Center, ij 16— tei 721-4593— Munae
— MG
So oe BASIC
Sim. p/ equips Proiogica.
Dismac. Poiymax
Fmanc propno
ate 15 meses tmanc
Banco/Fmanceira.
leasing
HP-1GC. HP-11C.
HP-12C. HP-15C.
HP-41CV. Tl-59
Odissey.
Atan/Polyvox.
Dynavision
Renaux — F.abnca oe Tecioos Carlos Renaux S.A. — Loias
Av C Canos Renaux 164 — tei 55-0466 — Brusque — SC
BASIC e outros cursos
p/ empresas. curso gratis
na compra oe micro
Nao
Fmanc Banco/
Fmanceira
Lmha Sharp
Dismac
Atan/Poiyvox
Rio Micro Computadores Ltda.
Rua Visconoe oe Piraja. 330 >| 314. ipanema — tei 521-4866 — Rio oe
Janeiro— Rj
Nao
Nao mas encammha
ao labncante
Fmanc propno
ate lb meses tmanc
Banco/Fmanceira.
leasing
HP-11G HP-12C
Nao
Ritz Cine Foto Ltda.
Rua Frei Caneca I — tei 35-1792 — Santos — SP
BASIC e outros
Sim, p. prooutos
compraoos na lo/a
Fmanc propno
ate 3 meses tmanc
Banco' Fmanceira
leasing
Nao
Nao
Shop-Computer CEDM Ltda.
Av Sao Pauio 71b — tei 23-9674 — Lononna — Parana
BASIC e outros cursos
p. empresas. curso gratis
na compra de micro
Sim, p/ equips
Digitus. Proiogica
MicroOigitai. Sysoata
Fmanc propno
ate 3 meses tmanc
Banco' Fmanceira
teasing
Nao
Nao
Siscomp — Sistemas & Computadores Ltda.
Rua Tiburcio Cavaicante 29b — tei 244-4691 — Fortaieza — CE'Seiamaq
icoiigaoai Rua 25 oe Marco. 293 — tei 231-3422 — Fortaieza — CE
Curso gratis na
compra oe micro
Sim. p/ prooutos
compraoos na iOia
Fmanc propno
ate 3 vezes tmanc
BancO'Fmanceira.
leasing
Sisoata — Comercio a Rap. da Sistemas a Computadores Ltda.
Rua Bouievaro America 12 J Baiano — tei 242-9394 e 243-2664 - Sa>
vaoor — BA
So oe BASIC, cursos
p, empresas. curso gratis
na compra oe micro
Sim. p/ equips .
Poiymax. CP-500
Fmanc Banco/
Fmanceira. leasing
Nao
Nao
Sistematika Computadores & Sistemas
Rua Anoraae Neves. 2416 — Peiotas — RS
So oe BASIC, cursos
p/ empresas
Sim. p/ equips
Proiogica
Fmanc propno
ate 2 meses. tmanc
Banco/Fmanceira
leasing
Lmha Dismac.
Sharp. Hewiett
Paekara
Aian/Poiyvox.
Dynavision
Souza s Computer Canter
Rua Maria Carolina. 205. ij 05 Boa Viagem — tei 325-4979— Recite — PE
BASIC e outros. cursos
p/ empresas. curso gratis
na compra de micro
Sim, p/ equips
Proiogica. Spectrum.
Kemitron. Digitus
Fmanc. propno
ate 6 meses. tmanc
Banco/Fmanceira
Nao
Odissey.
Dactan
String Computer Shopping — Tampon Computadores Ltda.
Rua Aimirante Cochrane. 210 Ti|uca — Rio oe Janeiro — RJ
Nao
Nao. mas encammha
ao labncante
Fmanc propno.
tmanc Banco/
Fmanceira. leasing
Nao
Nao
Supnmento Materials para Computadores Ltda.
Rua Visconoe oe Piraia. 550. i) 202 — tei. 274-8845 — Rio de Janeiro — Rj
So de BASIC cursos
p/ empresas
Sim. p/ equips
Digitus. Osborne. Dismac
Fmanc. Banco/
Fmanceira. leasing
Nao
Nao
TESBI — Enganhana da Teiecomunicacoes Ltda.
Rua Guiihermina. 638. Encantado — tei 249-3166 — Rio de Janeiro — RJ
BASIC e outros.
cursos p' empresas
Nao. mas tern convenio
c/ tirma de manutencao
(Tecnoccop)
Fmanc Banco/
Fmanceira. leasing,
consorcio
Nao
Nao
Work Shop — Assessor* a Desenvoivimento de Sistemas Ltda.
Rua Martmezia. 34. ci 02 — tei 234-0080 — Uberiandia — MG ■
MICRO SISTEMAS, janeiro/84
43
industria detentora da tnais avai
micros d grandes computadores, bem como lider nacioti
agora ate voce... DISKETTES BRASILEIROS.
Datadisk 8" e 5 1/4", produzidos na Zona Franca de
sdo compdti
j aprovaaos s<
Apartir
adquirir dis
no Brasily at
Nacional de
Revendedon
I_Lj ' ' I 'J M
Distort* n°
605.01
j
DfilflDlSK
60501 ■
I®
IHIi J JflJIIIIIFll INDUSTRIA DE FITAS E IMPRESSORAS LTDA.
ndas.Rua Lord Cochrane, 775 - CEP 04213 PABX (Oil) 914.2266 Telex (Oil) 34224
Filial RJ: Rua Senador Dantas, 75 22°. andar s/ 2.202 Fones: (021) 220.4181 / 220. 7483
Filial BH: Rua Selenio. 264 s/202 Fone: (031) 334-4 768
gcula tecnologia nafabricaqao defitas itnpressoras para
%l na comercializagdo de suprimentos para CJ*.D.(s), traz
tianaus, com a tnais avanqada tecnologia, estes diskettes
eis a todos os tipos de Drives existentes no mercado, foram
gundo opadrdo ANSI e certijicados com zero erro.
ie agora, vocepoderd
\ettes produzidos
aves da Rede
Representantes e
MAR/UA/SP 334109 - CAMPINAS/SP 322786 - PRESIDENTS PRUDENTEISP 227999 - StOGI DAS CRUZES/SP 460 2836 RIBEIRAO PRETO/SP 6343135
UNS/SP 222345 - S. JOS£ DOS CAMPOS/SP 225282 - S. V1CENTE/SP 674424 - FLORJANOPOUS/SC 0482 132 - BLUMENAU/SC 222142 - UBERLAN
DiA/MG 232 0188 - FORTALEZA/CE 231 3163 - ARACAJU/SE 2224146 - BRAS/UA/DF 2237861 - SAI.VADOR/BA 2421785 - MANAUS/AM 237.1492
JU1ZDEFORAI MG 213.1733 - VTT6RIAIES 223.1633 - PORTO ALEGRE/RS 331556 - TEREZ1NA/P1 222.1404 - GOlANlA/GO 2245486 CUR/T1BA/PR
2531272 - BELEM/PAR.4 227.1053 - JOAo PESSOA/PB 2214965 - REdFE/PE 228 3224 - MACE10/AL 223 7433
CO
D
to
D
C
a?
-Q
£
UJ
NovoTK
Pelo prego dele voce so compra a i
Ate hoje voce tinho so duas
alternatives : ou pagava caro um
computador de alta performance
ou se conformava com um
equipamento de prego e
possibilidades limitadas.
Agora a Microdigital langa o
TK 2000 color, um micro de alta
performance pela metade do prego
do seu concorrente mais proximo.
Veja: ele tern 64 kbytes de memoria*
RAM e 16 kbytes de memoria
ROM, trabalha com alta resolugao
grafica a cores podendo ser ligado
ao seu TV colorido ou P&B, diskette
de 5 V4", impressora (ele \a vem
com interface), gravador, cartuchos
gravados, joystick.
E o que e muito importante:
tern excelentes software disponivel,
WOO color
netade do concor rente ma is proximo,
inclusive plonilho eletronica, editor encontror o computador TK 2000,
de textos, controle de estoques,
jogos animodos em cores e muito
mais. Conhego o novo TK 2000
color nos lojos especializadas e
magazines de todo o pais.
E /eve um micro avanq:ado, de
a/fa performance, praticamente pela
metade do prego.
Se na sua cidade voce nao
ligue gratuitamente para (Oil) -
800 255.8583 e teremos o prazer
de informar-lhe sobre o revendedor
Microdigital mats proximo.
jr.
Microdigital Eletronica Ltda.
Caixo Postal - 54121 -CEP 01 000 - Sao Paulo - S.P.
A venda nas boas casas do ramo, lojas especializadas de
fotovideo-som e grandes magazines.
Deixe o tec/ado de seu micro em paz e divirta-se com os jogos de video
atrave"s deste dispositivo simples, de ficil montagem e custo reduzido
Apple paddle:
fa£a voce mesmo
Evandro Mascarenhas de Oliveira
Sempre que precisamos movimentar figuras em jogos ele-
tronicos somos obrigados a atuar repetitivamente sobre
o teclado de nosso micro — o que pode levar a um des-
gaste prematuro e desneccssano das teclas. Dai, e tambe'm por
outras razOes, a conveniencia do uso de controladores de jogos,
como o paddle ou joystick.
Pois bem. Neste artigo me proponho a ensinar como voce
pode construir um paddle para o seu equipamento compativel
com o Apple, o qual possui, em sua placa de montagem, um
conector para jogos representado por um soquete de 1 6 pinos
(figura 1), que apresentam as seguintes finalidades:
Figura I -
Pinagem
do soquete do
controlador
de jogos
S/L
vcc ■
1
16
■
PBO ■
2
15
■
AN
PB1 ■
3
14
■
AN 1
PB2 ■
4
13
■
AN 2
STROBE ■
5
12
■
AN 3
GCO ■
6
11
■
GC 3
GC2 ■
7
10
■
GC 1
-^ ■
8
9
■
S/L
a) Pinos 1 e 8 - alimentacao: Vcc (+5V) em 1 e Terra (0V)
em 8.
b) Pino 5 - strobe: normalmente saida em alto nivel, vai para
ni'vel baixo durante 0,5 microssegundos ao se referenciar o
endereco C04F (LDA $ C04F ou PEEK (-16320)).
c) Pinos 12, 13, 14 e 15 - designados por AN3, AN2, AN1 e
48
ANN
PINO
V
5 V
15
C058
-16296
C059
-16295
1
14
C05A
-16294
C05B
-16293
2
13
C05C
-16292
C05D
-16291
3
12
C05E
-16290
C05F
-16289
Figura 2 -
Enderecos associados as safdas ANN para tensoes de 5 a
Volts.
Figura 3 - Reli de 6 V acoplado d saida ANO. atravis de transistor
NPN e resistor, controlando uma cargo por meio de pro-
grama no computador.
PB
PINO
ENDEREgO
2
C061
-16287
1
3
C062
-16286
2
4
C063
-16285
Figura 4 -
Enderecos
associados
aos push
buttons
PB
ANO e denominados Annunciators, podem assumir as tensoes
5V ou 0V (conforme a figura 2), carregando-se o acumulador
com zero (LDA # 0) e transferindo-o para o endereco indica-
do (ST A end), ou entao atravis de POKE end, 0. Sao utiliza-
MICRO SISTEMAS, janeiro/84
dos para controlar as cargas externas a partir de programa no
computador (figura 3).
d) Pinos 2, 3 e 4 - designados por PBO, PB1 e PB2 e denorm-
nados push buttons, sao entradas TTL associadas aos endere-
Figura 5 -
Enderecos
associados
ds
entradas
analdgicas
GC
GC
PINO
ENDERECO
6
C064
-16284
1
10
C065
-16283
2
7
C066
-16282
3
11
C067
-16281
90s da figura 4. No micro, as duas primeiras (pinos 2 e 3) sao
as usadas nos dois controladores (paddle e paddle 1).
e) Pinos 6, 7, 10 e 11 - designados por GCO, GC2, GC1 e
GC3, sao as entradas analdgicas dos controladores, associadas
aos enderecos da figura 5 e ligadas ao integrado 558 (tempon-
zador quadruple*) em configuraca'o monoestdvel. Quando a
rotina interna da ROM com initio no endereco FB1E e chama-
da, o endereco C070 e referenciado, permitindo o disparo dos
quatro monoestdveis simultaneamente, por um periodo que
depende da posicao do cursor do potenciometro ligado a en-
trada (figura 6), retornando no registrador Y um valor entre
e 255 ($00 e SFF), proportional a tensao aplicada no pino
controlado.
Devido ao disparo dos quatro monoestaveis, deve-se intro-
duzir sempre um retardo entre as chamadas da rotina FB1E pa-
ra cada controlador, a fim de permitir que a saida dos tempori-
oVCC (5V)
*
PB
•
> R
RP <
0,1 ou 2
* 0,1
Figura 6 - Conexoes bdsicas dos push buttons e das entradas anald-
gicas GC no controlador de jogos.
zadores volte a zero, pois, caso contrario, o valor re tornado em
Y nao corresponded a posicao do cursor.
Um programa simples para constatar o desempenho do con-
trolador e" dado por:
5 HOME
10 X= PDL(0)
20 PRINT X
30 GOTO 10
Variando a posicao do cursor do paddle 0, serao exibidos
no video, nas tre"s primeiras colunas, os numeros entre e 255.
Substituindo a linha 20 por:
20 POKE 1576, X: HTAB 10: VTAB 13: PRINT "
25 HTAB 10 : VTAB 13: PRINT X j
Ha um novo
computador pessoal
no mercado!
HP-85B
com disco eletronico
HP-85B. um passo adiante! Em um unico
gabinete voce encontra teclado. tela alfanu-
meriea e grafica. unidade de f ita magnetica
digital, impressora com capacidade grafica.
sistema operacional com 48 K, e um Disco
Eletronico que. expandido atraves de modu
lo de memoria. amplia o sistema at£ 1!>2
Kbytes.
novo HP-85B pos8ui64 Kbytes de memo-
ria. dos quais32 K bytes ( RAM) diretamente
accssados pelo usuario. Os outros 32 Kbytes,
tambem RAM, compoem uma memdria de-
nominada Disco Eletronico que simula um
acionador de discos, porem de altlasima \«-
locidade. Fermite armazenar dados, tempo-
rariamente. e depois recupera-los com velo-
cidade ate 150 ve/.es maior do que na fit a
magnetica digital, e at£ 15 ve/.es maior do
que niima unidade de discos flexiveis.
C'onheca hoje o HP-85B, o computador
completo. portatil econfiavel com Disco Ele-
tronico que oferece mais velocidade e ate
192 Kbytes! Garantia de 3 meses. Assist§ncia
Tecnica.
Alta velocidade
com ate 192 Kbytes!
HEWLETT-PACKARD IX) BRASIL
IND ECOM.LTDA.
ALAMEDA RIO NEGRO. 750
RODOVIA CASTE LO BR ANCO. KM?).S - BARUERI
SAOPALILO-CEP06400-FONL IOIII42I I3II
ca
HEWLETT
PACKARD
Remcta este cu|»om para receber literatura
t^t'nk'ado novo computador HI'-K.'iK
Nome
I'rofissao
Rua N'.' Apto.
CEP Cidade Kstado
APPLE PADDLE: FACA VOCE MESMO
a tela mostrara todos os caracteres de texto utilizados pelo sis-
tema em seus modos inverse flash e normal, acompanhados de
seus respectivos codigos decimals.
Para usar a rotina da ROM com mi'cio em FB1E, o valor nu-
merico do paddle (0 ou 1) sera carregado no registrador X. o
qual referenciara o endercco C064.X (C064 para o paddle e
C065 para o jxiddle l);o potenciometro retornara, no registra-
dor Y, os valores entre e 255.
Quando o interruptor dos pinos PB (2, 3 ou 4) e fechado. o
bit 7 dos endere^os C061 , C062 ou C063 vai para urn. mdican-
do um numero negativo; testando-se o valor, positivo ou nega-
tivo. podem-se controlar as instructs do programa que serao
executadasou nao.
programa a seguir desloca. apos compnmirmos o botao
do paddle 0. uma unidade grafica (retangulo vermelho) na tela:
girando o eixo do potenciometro da esquerda para a direita,o
retangulo se deslocara nas linhas 0, 8. 16. 1, 9 e 17. retornan-
do, em sentido contrario. ao girarmos da direita para a esquer-
da. Experimentc-o:
0300-
20
58
FC
JSR
$FC58
— IOC
0303-
20
II
FB
JSR
JFB40
— 6R
0306-
AD
SI
CO
LDA
$C061
J AGUARDA BOrfo P90 SER CCW>RIMIDO
1 PARA IR A 30B
0309-
10
KB
BPL
$0306
r— 030B-
030D-
A9
85
11
30
LDA
STA
#$11
$30
-[ COR VERMELHA
030F-
A2
no
LDX
#$00
J CARREGA PADDLE(O) EM X, RETOBWCO
1 EM Y OS VALORES EWTRE E 255
0311-
20
in
FB
JSR
$FB1E
0314-
0316-
A9
20
00
00
F8
LDA
JSR
#$00
$F800
■T PLOTA EM Y,0
0319-
A9
22.
LDA
#$32
-[ ICTARDO
031B-
20
AB
FC
JSR
$FCA8
031E-
0320-
A9
85
00
30
LDA
STA
#$00
$30
-1 OOR PRETA
0322-
0324-
A9
20
00
00
F8
LDA
JSR
#$00
$F800
-T APAGA A UNIDADE CSAFICA
-0327-
4C
CIS
03
JMP
$030B
circuito eletrOnico
A configuracao ba'sica do controlador esta na figura 6: cada
paddle (0 ou 1) possui um potenciometro RP com o pino cen-
tral (cursor) ligado a entrada analogica GC; os outros dois pi-
nos sao ligados em Vcc e Terra. A entrada PB e mantida em
ni'vel baixo pelo resistor R, indo a ni'vel alto quando se fecha a
chave CH. ligada ao Vcc.
VCC(5V)
PDL
10
R3
R4
X
Figura 7 - Circuito para os controladores de jogos PDL e PDL 1.
O circuito eletronico dos dois controladores (paddle e
paddle 1) esta na figura 7. Os potenciometros estao indicados
por R2 e R3. os resistores de aterramento por Rl e R4 e os
interruptores por CHI e CH2.
Os dispositivos foram montados em caixa plastica de radio
portatil com as dimensoes de 65 x 55 x 25 mm, cujo orificio
do alto-falante foi coberto com placa de acrilico fixada a cai-
xa, tendo o potenciometro preso em sua parte central. in-
terruptor foi instalado em uma das laterals e o cabo condutor
foi feito com fio paralelo duplo, com malha individual em
cada um, obtendo-se os quatro condutores necessanos as
conex5es.
Em meu micro foram instalados dois soquetes Philips de
cinco pinos na face posterior do equipamento, ligado ao so-
quete de controlador por cabo multiplo de seis veias e conec-
tores adequados (figura 8). O material empregado foi o se-
guinte:
W
'
PDL
l
7s
d
1
^PDL 1
® ® ©
Figura 8 Painel traseiro do Apple onde foram instalados os dois so-
quetes Philips de einco pinos para os dois controladores
(PDL Oe PDL I).
1 ) Resistores
• Rl eR4- 470 ohms- 1/4 W
• R2 e R3 - 100 kohms - potenciometro linear de carvao ( *)
2) Diversos
• CHI e CH2 - interruptor monopolar simples de pressao
• Caixa plastica de radio portatil, knobs, cabo paralelo duplo
com malha individual nos dois condutores, conectores para so-
quete de 16 pinos etc.
(*) Observacao: na verdade. qualquer potenciometro de 1
kohms pode ser empregado. uma vez que somente cerca de
1 3 da pista t utilizado para vanar os niimeros eutre e 255.
devendo-se Jar preference ao potenciometro de fio ao inves
do ce caivao. o qual tern maior durabilidade e constancy ru
vanacao. ■
Evandro Mascarenhas de Oliveira e" me"dico e exerce suas atividades em
Laboratdrio Clfnico e InstrumentacJio M4dica. Trabalhou durante qua-
tro anos com o computador Burroughs 6700 do Nucleo de Computacao
Eletrdnica da UFRJ, usando as linguagens FORTRAN IV e Algol. Tern
v&rios artigos publicados nas Areas de Eletronica Digital e Geral em re-
vistas especializadas.
50
MICRO SISTEMAS, janeiro/84
Como aprender
microcomputacao sem
fazermuitafor^a.
A Libra e formada por profissionais que conhecem todos os segredos dos micros.
Eles desenvolveram urn metodo simples, facil e descomplicado para voce
aprender microcomputacao.
Tbda a foi^a ja foi feita parawcg.
Voce so entra com a vontade de aprender. E a Libra entra com a estrutura
mais completa do mercado em microcomputacao.
Apostilas proprias, especialmente preparadas. Professores especializados. Treinamento
em software de todos os niveis de sofisticacao. Cursos em todos os horarios, em ingles ou
portugues. Salas de apenas 12 alunos, com no maximo tres alunos por micro. Certificado de
conclusao.
Voce entra, senta e fica espantado: nunca foi tao facil e tao rapido aprender tudo sobre
microcomputacao.
\foc£ aprendetudo o que quiser.
Os cursos da Libra vao do be-a-ba ate a pos-graduacao. Estes sao
apenas alguns exemplos:
Introducao ao microcomputador - o que e, para que serve, como funciona,
historico, possibilidades futuras.
Aplicativoe - voce e apresentado ao conceito dos escritorios do futuro: "office-
automation" atraves dos programas mais famosos e utilizados do mundo: Visicalc,
Banco de Dados, Edigao ae Textos e Graficos.
Basic Total - a programacao pelo caminho mais curto.
Treinamento em softwares - os programas mais avancados e utilizados, vistos com
toda a profundidade, exclusi vidade Libra.
Sua empresa tambem ganha com a Libra.
Ganha porque seus funcionarios nao perdem tempo, e ja vao logo aproveitando
todas as vantagens dos micros.
E ganha porque a Libra tambem coloca a sua empresa em contato com os melhores
servicos de microcomputacao e o melhor software disponiveis.
Desenvol vimento de sistemas especiais. Aplicativos de todos os tipos. Orientagao na
implantacao e utilizacao de sistemas.
Tudo o que urn micro pode fazer, a Libra ajuda voce e sua empresa a fazer melhor.
E sem fazer a menor forca: o unico trabalho e telefonar ou mandar o cupom.
Libra
r
Libra Informatica Ltda.
P?a. Charles Miller, 96 - CEP 01234
Tels.: (Oil) 65.5081 e 262.9033
(em frente ao Est. do Pacaembu)
Gostaria de receben ( ) maiores informa^des
Nome
a visita de um representante
~I
Endereco.
Nf
L
Tel.
Cargo.
Empresa.
rtb
J
Seu micro da linha TRS-80 I fara de voce o pi low de um caca sobre uma cidade que
estci sendo atacada. E preciso salva'-la das bombas inimigas... Portanto, mire e at ire
Bombardeio
Helvecio C. R. Netto
Oque leva algu^m a escrever um
jogo? Talvez a esperanca de
passar algumas divertidas horas
na frente do micro. Mas. por que nao
comprar um jogo? A resposta e simples:
porque os jogos sao o tipo de software
mais sujeito a crit;cas, exatamente por
dependerem mais do gosto do fregues.
Nao existe abundancia de material no
mercado, apesar de parecer o contrario,
e o usuario encontra dificuldade em
escolher um que lhe agrade.
jogo Bombardeio foi escnto para
Uustrar algumas tecrucas de programa^ao
de jogos que poderao ser usadas em
outros enredos. A montagem da tela foi
feita em vanos ni'veis: o chao, os prddios,
a mira, o contador de combust l'vel, etc.
A rotina de movimento foi construi'da
com a utilizacSo das instructs SET e
POKE, a primeira para movimentai as
bombas e a segunda para movimentar a
rrura, ambas com o objetivo de agilizar o
deslocamento dos objetos.
A consulta ao teclado e feita atrav^s do
PEEK da posi<;ao 14420. Tal posicao
devolve :
8 - seta para cima
16 - seta para baixo
32 - seta para direita
64 - seta para esquerda
128 - barraespaco
- para o resto
Como fica fdcil notar,LOG(N)/LOG(2)-2
devolve um numero no inter valo entre
52
MICRO SISTEMAS, janeiro/84
10 GOSUB 37
20 GOSUB 330
30 RC=0
40 DEFINT A-Z: CLS: P=16032: Pl=
ASC(" + "): C-RNDU27): L=7 : D=l:
S = 20
50 FOR 1=0 TO 63: POKE 1+16320,1
31: POKE 15424+1,15: NEXT
60 FOR 1=1 TO 10: POKE 16256+RND
(63) ,191: NEXT
70 PRINT@10,"< COMBUSTIVEL >";@4
0,"< RECORD >";RC;
80 POKE P,P1
90 PRINT@25,S;: SET(C,L): A=PEEK
(14420) : IF A=0, 120
100 A=LOG(A)/LOG(2)-2
110 ON A GOSUB 160,180,200,220,3
10
120 RESET (C,L): L=L+1: IF L=45,
GOSUB 240
130 IF RND(100)<20, D=-D
140 IF C+D>0 AND C+D<127, C=C+D
150 GOTO 80
160 IF P>15552, POKE P,128: P=P-
64
170 RETURN
180 IF P<16192, POKE P,128: P=P+
64
190 RETURN
200 IF P>15492, POKE P,128: P=P-
4
Bombardeio Adreo
210 RETURN
220 IF P<16251, POKE P,128: P=P+
4
2 30 RETURN
240 FOR 1=1 TO 20: OUT 255,0: OU
T 2 55,1: NEXT
250 L=7: C=RND(127): IF S>1, S=S
-1: RETURN
260 PRINT@12,"FIM DE JOGO" ;<§>26 , "
270 PRINT@526,"== CLASS IFICACAO
660, SI;" .= = ";R$(S1/10) ;@85
RETURN > PARA NOVO JOGO";
280 A$=INKEY$: IF A$="", 280 ELS
E IF ASC(A$) <>13, 280
290 IF S1>RC, RC=S1
300 GOTO 40
310 POKE P,191: FOR 1=1 TO 20: O
UT 255,1: NEXT
320 POKE P,128: IF P=INT(L/3) *64
+INT(C/2)+15360, S=S+6 : S1=S1+1:
GOTO 240 ELSE RETURN
3 30 FOR 1=0 TO 9: READ R$(I): NE
XT
340 DATA "LAMENTAVEL. . . " , "AINDA
BEM QUE ERA SO' UM JOGO...","UM
DIA QUEM SABE. . .","BOM APROVEITA
MENTO","JA' TA' MELHORANDO. . . " , "
quem diria: bom placar:","um VER
DADEIRO PILOTO","NEM EU FARIA ME
LHOR: M ,"NEM BUCK RODGERS FARIA M
ELHOR'. "
350 DATA "VOCE SO' PODE TER ROUB
ADO!
PLACAR MAX I MO I"
360 RETURN
370 CLS: FOR 1=1 TO 62: POKE 153
60+1,10: POKE 16320+1,21: NEXT
380 FOR 1=15424 TO 16256 STEP 64
: POKE 1,210: POKE 1+63,206: NEX
T
390 PRINT@148,"B OMBARDEI
0";@266,"Sua cidade esta' sob b
ombardeio inimlgo";@3 30, "Sua mis
sao: salva-la" ;@394 , "Para isso v
oce conta unicaraente com";@458,"
sua habilidade nos comandos de s
eu caga, ";©522 , "acertando as bom
bas com seus foguetes";
400 PRINT@650,"Movimente a mira
com as setas e dispare com";@>714
, "a barra de espaco" ;@778 , "CUIDA
DO: nao deixe o combustivel acab
a r '. " ;
410 PRINT@926,"< RETURN >";: FOR
1=1 TO 40: OUT 255,0: OUT 255,1:
NEXT: A$=INKEY$: IF A$="",410
ELSE IF ASC(A$)<>13, 410
420 RETURN
m
1 e 5, dependendo da tecla pressionada.
O resto do jogo pode ser resumido a
poucos passos. como atualizacao de
ponteiros e contadores.
Este jogo e um exemplo que contem
elementos suficientes para que voce
finalmente arume-se, ponha a
imaginacao para funcionar e escreva suas
aventuras.
COMO JOGAR
Ao final da hstagem digite RUN. O
sistema vai apresentar na tela as regras do
jogo. Para a movimentacao voce vai
utilizar as setas (esquerda, dneita. cima,
baixo) e a barra de espaco para atirar.
Para acertar as bombas voce tera um
combustivel uncial de defesa. que se ira
desgastando a cada nova investida. Mas
nao se preocupe; em compensacao, a
cada bomba atingida voce recebera - um
combustivel extra para prosseguir o
combate.
No final, quando voce tiver gasto todo
seu combustivel. o sistema ira - mostrar,
no campo superior da tela, quantas
bombas voce acertou e qua] a sua
classificacao final.
Na"o desanime nai primeiras tentativas
se a sua performance na"o for excelente.
Aqui vai uma dica: na"o tente destrun as
bombas no alto da tela; espere que elas
abaixem para desfenr o tiro fatal.
MICRO SISTEMAS, janeiro/84
Helvecio C. R. Netto cursa atualmente o 49 periodo de Informatics na UFRJ, tendo cursos de
FORTRAN, Pascal, Assembler, ALGOL e COBOL. Estagia desde agosto de 1983 no CPD da
MICRO SISTEMAS.
Nao pare seu programa
nem perca a memoria
91 :h\ : M
Gerador Eletronico Portatil de 200 VA
GUARDIAN
O Gerador Eletronico GERATRON
e a solucao definitiva para
o problema de falha na reae
eletrica. Quando esta faltar.
GERATRON continuara alimentando
o seu micro como se nada
houvesse acontecido Chame
um representante hoje mesmo.
W Equipamentos Eletrdnicos Ltda. um ' e P' eseniante n °' e mesm °
ALTA TECNOLOGIA EM ELETRONICA INDUSTRIAL
RuaDr Gamier 579 • Rocha • CEP 20971 • Rj • Tels (021)201-0195. 261-6458 e 281-3295 • Telex (021) 34016
• Sao Paulo (01 1) 270-3175 e 241-751 1 • Brasilia (061) 226-0133 • Salvador (071) 241-2755* Recife (081) 221-0142
• Natal (084) 222-3212 • Belem (091) 222-5122 • Forialeza (085) 226-0871 • Cunt.ba (041) 224-5616
• Flonanopolis (0482) 23-0491 • Blumenau (0473) 22-6277 • Porto Alegre (0512) 22-5061
Faca a sua boa agio do dia: ajude uma "galinha" a atravessar uma
avenida congestionada, na tela de seu micro da linha Sinclair
Penosa travessia
Gustavo Egidio de Almeida
Este programa foi escnto para os micros da linha Sinclair
e consiste no seguinte : voce esta" em frente a uma
avenida congestionada e tern que atravessar uma
galinha (caratcr $) de urn lado ao outro desta avenida,
desviando dos veiculos que nela transitam. Se a galinha for
pega por algum dos vei'culos, ela retorna ao ponto de partida.
unico detalhe e que a galinha so pode mover -se para cima e
para baixo, respectivamente com as teclas 7 e 6. Na parte de
baixo da tela, hi um contador que marca quantas vezes foi
conseguida a travessia e outro que marca o recorde do jogo.
A digitacao deve ser feita em duas etapas. Entre primeiro com
a listagem 1 e de um RUN (se quiser, liste o programa e veja
conio a linlia 1 mudou de aspecto). Apague todas as linhas,
exceto a 1, e entre com a listagem 2.
Pronto. Agora e so tremar bastante, conseguir um recorde bem
alto e desafiar seus amigos a supera-lo. Voce veii que
atravessar uma galinha nao € tao facil assim como parece...
Gustavo Egidio de Almeida possui cursos de BASIC e COBOL. Atual-
mente cursa o Niicleo de Orientacao de Estudos. especial izan dose em
linguagem de maquina, mah especificamente no Assembly Z-80 usado
em micros da linha Sinclair. £ usuano, hi mais de seis meses. de um CP-
200.
1
A venida — listagem 1
REM XXX (34 CARACTERES QUAIS
QUER) XXX
2
LET A$="2A0C4023012116CD944
0C5060009C110F6C9E5C5061F7E234E2
B712310F977C1E1C9"
3
LET M=16514
4
FOR K=l TO LEN A$ STEP 2
5
LET A=(CODE A$ (K) -28) *16+C0
DE A$(K+l)-28
6
POKE M,A
7
LET M=M+1
8
NEXT K
2 REM GUSTAVO EGIDIO DE ALMEI
DA
REM AVENIDA
POKE 16418,0
LET P=0
LET L=0
LET A$='
A venida — listagem 2
8 PRINT AT 0,10;
9 PRINT AT 8,0; "O OBJETIVO DO
JOGO EH ", "ATRAVESSAR A GALINHA
($) DE UM","LADO AO OUTRO DA AVE
NIDA"
10 PRINT , , "TECLAS 6 E 7 MOVEM
($)"
11 PRINT , , "PARA COMECAR TECLE
0"
12 IF NOT INKEY$="0" THEN GOTO
12
13 FAST
14 PRINT AT 0,0;
15 FOR F=l TO 70
16 LET M=INT (RND*12)+140
17 PRINT " ";CHR$ M;" *"
18 NEXT F
19 FOR F=l TO 21
20 LET M=INT (RND*1)
21 IF M=0 THEN PRINT AT F,
(RND*28);"
22 IF M=0 THEN PRINT AT F,
(RND*28);"
23 NEXT F
24 PRINT AT 0,0;A$;AT 22,0
25 SLOW
26 GOSUB 28
27 GOTO 31
28 IF L>=P THEN LET P=L
29 PRINT AT 23, 3; "VEZES: "
AB 17; "RECORDE: ";P
30 RETURN
31 LET A=22
32 LET B=10
33 FOR Z=l TO 300
34 PRINT AT A,B;"$";AT A,B
INT
■
INT
;A$
;L;T
35 IF PEEK (PEEK 16398+PEEK 16
399*256) <>0 THEN LET A=22
36 IF INKEY$="6" THEN LET A=A+
1
37 IF INKEY$="7" THEN LET A=A-
1
38 IF A>22 THEN LET A=22
39 LET E=USR 16514
40 IF A=0 THEN GOTO 47
41 NEXT Z
42 GOSUB 28
43 PRINT AT 0,6;"OUTRA VEZ? DI
GITE 0"
44 IF NOT INKEY$="0" THEN GOTO
44
45 LET L=0
46 GOTO 13
47 LET L=L+1
48 GOSUB 28
49 LET A=22
50 GOTO 41
51 SAVE "AVENIDA"
52 SLOW —
53 RUN
,-*
54
MICRO SISTEMAS. janeiro/84
classificados Qyfe
EQUIPAMENTOS
• Compro a copia do manual de
operacao do sistema NEW DOS.
I ratar com Carlos Lacerda Lopes,
Rua Americo Lobo. 675. Manoel
Honbrio, Juiz de Fora, MG.
• Troco micro TK85 de 48 K de
RAM, novo (na caixa) e Walkman
PS-50 da CCE por urn CP-300 em
bom estado. Telefonar para Sergio
apdsas 18:00h: (011) 220-6510.
• Vendo TK82-C de 16 K, 20
jogos, joystick com dois livros so-
bre jogos e um livro de aplicacoes
se>ias por Cr$ 150 mil. Tratar
com Fernando, tel.: (041) 266-
1259, Curitiba, PR.
• Vendo NE-Z8000, com expan-
sao de 16K, pouco uso, por Cr$
120 mil. Rio Branco, 45, 1311,
RJ.
• Vendo microcomputador DGT-
100 com 32K RAM, vfdeo e gra-
vador cassete. Tratar com Carva-
Iho, ap6s as 19:00 h pelo tel.:
(0192) 52-3477, Campinas, SP.
• Vendo um CP-200, com pouco
uso. Tratar com Silvio Vasconce-
los na Rua Tabapua 266, apt. 31,
tel.: (01 1 ) 64-5001 , Sao Paulo.
• Vendo TK82-C, sem expansao
e na garantia por Cr$ 90 mil. Tra-
tar com Claudio na Rua Carolina
Florence, 625, Campinas, Sao
Paulo, tel.: (0192)42-5151.
• Vendo um NE-Z8000, mais o
esquema do slow e o esquema do
CP-200 que permitem a conver-
sao do NE-Z8000, tudo por Cr$
80 mil. Compro um D-8000 ou
DGT-100 ou um JR da Sysdata;
tratar com Roberto Diniz, Rua
Vicente Scherma n9 35, Jacaref,
Sao Paulo.
• Vendo HP-41C com leitora,
tres modulos de expansao e um
modulo "Sfuctural Stress". Li-
guem para 531-0556, Gerson
Bianco Alonso, Sa'o Paulo.
• Vendo modem Coencisa MPC
12, naembalagem. Tel.: 71 1-3072,
Cristina, Niterbi, RJ.
Dl VERSOS
• Vendo diversos livros em In-
gles sobre micros; programas em
fita que acabam com a repeticao
inoportuna de teclas nos Dismac
e similares; amplificador para,
junto com essa fita, obter Beep do
teclado e tocar musicas dos pro-
gramas publicados em MICRO
SISTEMAS sobre aplicacoes sono-
ras para DGT-100; esquema de
programador de EPROM para a
linha TRS-80 I e III; e interface
RS-232 pela sai'da cassete. Enri-
que Ferri, Rua Fiaca"o da Saude,
128/103, CEP 04144, Sao Paulo.
SP, Tel.: 247-4400 R:335.
• Vendo as seguintes revistas:
Nova Eletronica (do n? 3ao81),
Interface (n? 1 ao 10), Micro
Mundo (n°s 1 a 18, quando jor-
nal, e 1 ao 3, revista), MICRO
SISTEMAS n9 6 e os livros: Guia
para Programadores, de Marlyn
Boll e Programacao Cobol, de Alex
C. Bastos. Vendo tamMm o jornal
Data News de maio de 1981 ate
maio de 1983. Tratar com Sflvio
pelo tel. : (01 1 ) 293-4608, SP.
• Faco slow, controle automati-
co para cassete, funcdes especiais,
gravador de EPROM nos micros
Z-8000, CP-200, TK82-C e TK85.
Tamb6m gravo membrias sob en-
comenda. Tratar com Jenilton,
Rua 227-A, n9 255, Setor Univer-
sitdrio, tel.: (062) 261-2862,
Goiania.
• Compro, desde que estejam
em perfeitas condicoes, as revistas
MICRO SiSTEMAS n9s: 02, 06,
07 e 09, por Cr$ 1 mil cada. Car-
tas para Silvio de Queiroz, Praca
da Matriz n9 01 , BNH, Bairro Sao
Francisco, Sao Lufs, Maranhao,
CEP 65.000.
• Compro os n9 s 1 , 2, 4, 5, 6 e
7 de MICRO SISTEMAS, pelo
preco atual. Contatos pelos tels.:
(071) 231-5657 (residencial) e
231-2145 (horaVio comercial).
Olinto Jos6 de Oliveira, Rua Vi-
vendas do Imbui, E8, Igarape,
apto. 303. Salvador, BA.
• Vendo o livro "Jogos para a
HP-41C", contendo 15 progra-
mas, entre os quais: Flipperama,
Guerra nas Estrelas, Biorritmo,
etc. Tratar com FI3vio pelo tel.:
(011) 570-7829.
SOFTWARE
• Vendo para o TRS-80 Color
Computer e similares nacionais
"SPEAK UP", sintetizadorde voz
totalmente software, de excelente
qualidade, adiciona voz vari£vel,
fala qualquer idioma, manual
completo. Preco: US$ 30,00 (cas-
sete com instrucoes). Tratar com
Jose" Gilberto Mendonca Filho,
Alameda Andrade, Ed. Serra do
Garcia, apto. 1203, Garcia, Salva-
dor, Bahia. CEP 40000.
• Vendo fita com programa de
xadrez para o TK82-C por Cr$ 5
mil. Tratar com Edison ou Isabel
pelo tel.: (011) 436-0665 ou es-
crever para Av. Manoel Pontes
Junior, 295, Jundiai', SSo Paulo,
CEP 13200.
• Vendo um programa que, en-
tre outras coisas, calcula e gera as
combinacoes na Loto (e os respec-
tivos cartSes de dez apostas,
obviamente) para uma quantidade
de dezenas a escolher. Os interes-
sados procurar David Lucio L6-
pez, Rua Marte, 101/403, Jardim
Riacho, Contagem, MG — Tel.:
(031) 351-3468.
• MICROCLUB - TK-82/85 e
CP-200/300/500. Associe-se gra-
tuitamente egaranta o recebimen-
to imediato de quatro programas
de jogos. PromocSo ate" 30 de ou-
tubro. Envie envelope selado e de-
tails de seu micro. MICROCLUB,
Cx. Postal 941, S. B. Campo. SP.
CEP 09700.
• Clube de usua>ios de micro-
computadores no qual voce troca
id6ias, programas, equipamentos e
soluciona duvidas. Para maiores
informacSes escrever para Caixa
Postal 7459, CEP 01000, Sao
Paulo.
• Desejo entrar em contato com
usudrios de micros similares ao
TK82-C para troca de programas
e experifincias, principalmente os
residentes na regi3o de Blumenau,
onde poderemos marcar reunioes.
Contatar Zoctan Bergmann, Cx.
Postal 2172, CEP 89100, Blume-
nau. Santa Catarina.
• Gostaria de obter cdpia do
artigo : : Z-Bug Super Debug Mo-
nitor : : publicado na revista 80
IVICRO de Janeiro de 1981 . Quern
tiver a revista entrar em contato
com: Vagner Ribeiro, Av. Miran-
dela, 51 , Nilbpolis, Tel.: 791-2427
- RJ.
• Estamos organizando em Vi-
cosa um clube para troca de infor-
macoes entre usua>ios de equipa-
mentos de I6gica Sinclair e de
outros compat fveis com o TRS-80.
Para ini'cio, confeccionamos um
boletim com jogos, programas e
dicas especiais e estamos ofere-
cendo aos leitores de MICRO
SISTEMAS que nos escreverem,
enviando Cr$ 100 e selos para as
despesas postais. Nosso endereco
6: Compuclub, Caixa Postal 37,
CEP 36570 - Vicosa, MG.
• A Micro Id6ia Sistemas, Edu-
cacao e Informa'tica Ltda. esta
formando um clube de usuarios
do Sinclair (TK82-C e ZX-81) no
Brasil. Correspondencia para: Av.
Mai. Camara, 160, s/1 .426, Caste-
lo, CEP 20031 , RJ.
• Faca amigos em todo Brasil
para troca de programas, Uvros,
etc. Anuncie em grande circuito
Sinclair. InformacSes gratis. Cx.
Postal 28, 27200 - Piraf, RJ.
• Clube dos usuarios do TK82-C.
NE-Z8000. ZX-81, TIMEX 1000
e CP-200 escreva para Goncalo
Murteira, Praca Belfort Vieira,
6/103, Leblon, Rio de Janeiro,
CEP 22440.
erro
MS
N9
NA
PAG IN A
ONDE
SE LE
LEIA-SE
26
35, de O Sistema
Operacional do
ZX81 (II). 2?
coluna, 7 a linha
do pardgrafo
IMPRESSAO
NO VIDEO
Essa area e imbvel
Essa a>ea 6 mbvel
26
40, de O Gran Mago
Z80, 2? coluna, 3 a
linha
Como 1 7
e igual a 8
Como 1 + 7
e igual a 8
26
79. na linha 026
da Listagem T.
Hor6scopo
026
026/
No n9 26, a linha 240 da listagem Jogo do Alvo
(pag. 75) nao saiu legfvel. Se voce teve alguma duvida,
veja a linha completa a seguir:
24G IF SCRN< * 8 THEN HOME
: UTHB 23: PRINT TrB< 5>"T0
ME GUI DADO COM rt MONTANHA! ! !
"I POKE 6,255s pr_r. LL
768: CALL 1 (ft CALL i 'ME
: GOTO 170
MICRO SISTEMAS, janeiro/84
55
Mostre sua habilidade de bom comedor de pontinhos, ao mesmo tempo
driblando monstrinhos, nesta versao do Pac Man para a linha Sinclair
Micro Pac:
saia dessa, se puder
Walmir Scaravelli
A qui estd uma versao de um dos
mais populares games dos Esta-
dos Unidos, o Pac Man (ou Co-
me-Come, que fica ate" mais simpdtico).
Trata-se do Micro Pac, que pode ser ro-
dado em qualquer micro da linha Sin-
clair com configuracao de 16 Kb, embo-
ra use menos mem6ria do que isso.
objetivo do jogo }£ e" conhecido de
todos: deve-se controlar o Come-Come
com as teclas 5, 6, 7 e 8 - ou com um
joystick — e comer o maior numero de
pontinhos possivel (quern sabe ate" to-
dos). No entanto, nao esqueca: voce es-
td em um labirinto, sem poder atravessar
as paredes, e o guardiao deste labuinto
estari sempre atrds de voce. Se ele o pe-
gar, o jogo acaba. Portanto, nao de
moleza!
jogo foi escrito em BASIC e, por
isso, nao espere que ele seja muito rdpi-
do; pordm, foram tornados todos os
cuidados para que, dentro do BASIC,
ele seja o mais rdpido possivel.
Lembrete: se voce desejar mudar o
labirinto, ter^ que fazer alteracSes entre
as linhas 200 e 440. Vamos la, maos a
obra e boa sorte (voce ai precisar).
Walmir E. S. Scaravelli 6 aluno dos cursos de
Maternities Aplicada a Sistemas e Estatisti-
ca, ambos na Universidade de Campinas, onde
tambCm trabalha no projeto LOGO. O autor
4 ainda professsor de P-rogramacao de Micro-
computadores na cidade de Itu, onde reside.
56
Micro Pac
5
10
20
REM WALMIR SCARAVELLI 10/83
GOTO 200
LET A=6.5
260
PRINT "
HBHBBH"
270
FOR 1=2 TO 30 STEP 14
30
LET X=0
280
FOR J=3 TO 19 STEP 4
40
LET V$=INKEY$
290
PRINT AT J, I;"."
50
IF V$<>"" THEN LET A=VAL V$
300
NEXT J
60
POKE C,S
310
NEXT I
70
POKE P,0
320
FOR 1=5 TO 17 STEP 6
80
LET X=34*A-50*SGN (A-6.5)-2
330
PRINT AT 1,11;"."; AT 1,21;"
21
. "
90
IF PEEK (P+X)<>136 THEN LET
340
NEXT I
P=P+X
350
PRINT AT 9,2;"."; AT 9,30;".
100
POKE P,128
M ;AT
13,2;".";AT 13,30;"."
110
LET Y=33*SGN (INT ((P-C)/28
360
PRINT AT 7,15;".";AT 7,17;"
))
.";AT 15, 15;"."; AT 15,17;"."
120
IF PEEK <C+Y)<>136 THEN LET
370
PRINT AT 9,16; ".";AT 13,16;
C=C+Y
".";AT 11, 3;"."; AT 11,29;"."
130
LET Y=SGN ( (ABS ((P-C)/33-I
380
PRINT AT 6,16; "if" ; AT 7,16;"
NT ((P-C)/33))<.5)-.5)
1";AT 11,16; "JT.-AT 15,16; "f; AT
140
IF PEEK (C+Y)<>136 THEN LET
16,16; TT •
C=C+Y
390
FOR 1=9 TO 13 STEP 2
150
LET S=PEEK C
400
PRINT AT I,4;".";AT 1,28;".
160
POKE C,151
"
170
IF P<>C THEN GOTO 20
410
NEXT I
180
CLS
420
FOR 1=8 TO 14 STEP 2
190
PRINT AT 10,10; "NAO DEU"
430
PRINT AT I,3;"»\-AT 1,29; "W
195
STOP
"
200
FAST
440
NEXT I
210
PRINT
450
PRINT AT , ; " "
220
230
FOR 1=1 TO 10
460
*256h
470
480
490
LET C=PEEK 16398+PEEK 16 399
115
LET P=C+495
LET S=27
SLOW
2 40
*"
250
NEXT I
500
GOTO 20
m
MICRO SISTEMAS. janeiro/84
Seduzido e aban
Esta e a historia do cavalheiro que comprou
um microcomputador que ia resolver todos
os problemas da sua empresa.
O precinho era bom e a conversa do
vendedor, airaente. Poucos dias depois ele
descobriu que o equipamento nao resolvia
todos os problemas (pelo contrario, criava
alguns novos) e pior de tudo, ao voltar a loja
onde tinha comprado, percebeu que ninguem
entendia realmente do assunto.
Em outras palavras, ele foi lamentavelmente
seduzido e abandonado. Mas ncm tudo esta
perdido: basta consultar a
Microshop antes de comprar um
microcomputador.
A Mkroshop ouve antes de falar.
Micros sao formidaveis, desde que sejam
recomendados exatamente para as suas
necessidades.
Porisso nos fazemos todo tipo de
perguntas sobre a sua atividade, e o
tratamento das informacoes para podermos
acelerar o processo de tomada de decisoes.
Nos achamos que quanto mais soubermos
sobre o seu problema, mais facil e completa
sera a nossa solucao
A Mkroshop da opinioes sineeras.
Trabalhamos com todas as marcas e modelos
importantes e nao temos interesse em
"cmpurrar" esta ou aquela marca. Assim,
voce tern a certeza de receber
sempre um opiniao independente.
A Mkroshop resolve mesmo.
Ao inves de um simples balconista bem-
intencionado, nos atendemos voce com gente
formada em Computer Science na
Universidade de Nova York.
•ti;#t
Isso que dizer orientacao
inteligente e correta na escolha do
software mais adequado (tambem
desenvolvemos programas especificos para as
suas necessidades). Significa tambem colocar
a sua disposicao nossa longa experiencia com
profissionais liberals, empresas de pequeno
porte e multinacionais. E mais: damos
treinamento completo na utilizacao dos
micros e softwares.
Venha conversar conosco. Nos podemos Ihe
seduzir, mas nao vamos nunca Ihe abandonar.
A loja dos micros inteligent
Sao Paulo: Al. Lorena, 652 - CEP. 01424 - Tel.: (01 1) 853.928P
Recife: Av. Conselheiro Aguiar, 1385 - Loja 4 - CEP. 50000 - Tel.: (081 ) 326. 1525 - Boa Viagem.
Crie, modifique, apague, imprima e consulte sempre que precisar o cadastro geral
de seus clientes em seu micro da linha TRS-80
Cadastro
de clientes
Newton Braga Junior
Oprograma Cadastro Geral foi de-
senvolvado para microcompu-
tadores da linha TRS-80 com
48 Kb de memona. Carregado, ele nao
ocupa mais de 10 Kb, mas,quando em
execucao, aloca aproximadamente 30
Kb para armazenamento das tabelas.
Essas tabelas sa"o o arquivo do cadas-
tro. o qua! tern capacidade de armazenar
atd 100 registros (fichas) com a seguin-
te constituicao:
COD - codigo ;e urn campo de controle ,
onde pode ser definido um codigo de
controle das fichas;
NOME - nome do cliente ;
ENDERE^O - endereco do cliente;
TELEFONE - telefone do cliente;
BAIRRO - bairro onde reside o cliente;
CIDADE - cidade onde reside o cliente;
EST ADO - estado onde reside o cliente ;
CEP - codigo de enderecamento postal
da cidade.
A tabela MS armazena o nome dos
campos do registro, que sa"o esses que
acabamos de ver. Caso voce queira um
novo tipo de registro. com nomes de
campos diferentes desses apresentados,
esta tabela MS devera ser alterada, jun-
tamente com as linhas 610, 615, 620,
625, 630, 635, 640, 645, 650, 655, 660,
665, 670, 675, 680 e 685, pois nelas
tambe"m devem ser modificados os no-
mes dos campos.
AS OPgOES
O programa € auto-expbcativo e pos-
sui as seguintes opcGes:
1 - Carregar o arquivo do cassete ;
2 — Gravar o arquivo no cassete ;
3 — Inserir registro (colocar novas fi-
chas);
4 - Modificar registro ;
5 - Apagar registro;
6 — Consulta ao arquivo;
7 - Listaro arquivo no video;
8 - Listar o arquivo na impressora;
9 — Classificar o arquivo (colocar em
ordem alfabe'tica).
O cardter ": (seta para cima) 6 a sai-
da de rotina do programa, ou seja, se vo-
ce estiver para executar ou se estiver
executando alguma rotina do programa
e desejar voltar ao seletor principal, bas-
ta pressionar essa tecla. Caso voce jaeste-
ja no seletor principal, este £ o meio de
saida do programa.
A consulta ao arquivo pode ser feita
usando-se como referenda qualquer
campo do arquivo. No caso de ser en-
contrado mais de um registro com o
campo igual ao do selecionado, o pro-
grama o apresenta em ordem de pesqui-
sa, dando ao final o numero de registros
encontrados.
Ao ser deletado (apagado) algum re-
gistro, o programa entra automatica-
mente em processo de classificac<fo.
Newton Duarte Braga Junior e" programador
COBOL , FORTRAN e BASIC. Atualmente
exerce a funcao de Gerente de Sistemas na lo-
ja Rio Micro Computadores Ltda.
dB/
dB/MICRO
AV. ALFONSO BOVERO 218
SAO PAULO S.P.
BRASIL
TEL : (0111263 0711
HOTLINE dB/FONE
PROGRAMA dB/I
PROGRAMA dB/II
JORNAL DO USUARIO dB/Clube
TREINAMENTO BASICO dB/Treino B
TREINAMENTO AVANCADO dB/Treino A
TREINAMENTO EM DISCO dB/Treino D
SEMINARIOS PARA EXECUTIVOS dB/seminarios
APOIO A AUTORES INDEPENDENTES dB/Aplicativos
SLPORTE
TOTAL
AOS
LSUARIOS
58
MICRO SISTEMAS. janeiro/84
Cadastro Geral
2 CLEAR 2000
3 DIM CD$(100) ,NM$(100) ,ED*(100) ,TL$(100) ,BR*(100) ,CI$<100) ,ES$(100)
,CE$(100) ,X(50) :DEFINT A-Z :P0KE16396, 175: *
5 M$(l)="COD# ":M$(2)="N0ME " :M$ (3) ="ENDERECO. . . " :M$ (4) =
"TELEF0NE..."M$(5)="BAIRR0 " :M* (6) ="CIDADE " :M$ (7) ="ESTADO. .
. . .":M$(8)="CEP "
7 M1$=STRING$(63,32) :M2$="PRESS < RETURN > PARA CUNTINUAR" :N=0 : D=0
10 GOSUB3000:PRINT»150, "BANCO DE DADOS";
12 PRINT«336,"(t) --=»> SAIDA DE ROTINA";©397 , "1 ===> CARREGAR ARQUIV
O DO CASSETE" ;©461, "2 — > GRAVAR ARQUIVO NO CASSETE" ;?525, "3 «===> C
OLOCAR REGISTRO" ;@589, "4 ===> MODIFICAR REGISTRO" ;f 653, "5 ===> DELET
AR REGISTRO";
13 PRINT*717,"6 ===> CONSULTAR ARQUIVO" ;«781, "7 ===> LISTAR ARQUIVO
( CRT )";#845,"8 -==> LISTAR ARQUIVO ( PRINTER )";f909,"9 =«> CLASS
IFICAR ARQUIVO";
16 F0RI=1T031:P0KE16 333+1, I :NEXT:FORI=lTO100: NEXT :I$=INKEY$:IFI$="",
FORI=lTO31:POKEl6364-I,I:NEXT:FORI=lTO100:NEXT:GOTO16 ELSE IFASC(I$)
=91,CLS:END ELSE P=VAL (1$) : IFP<1, 16
18 ON P GOSUBl00,200,300,400,500,600,700,800,900:GOTO10
100 GOSUB3000:PRINT»146, "CARREGAR ARQUIVO DO CASSETE";
102 PRINT»448,"POSICIONE A FITA E PRESS < RETURN > " ; :FORI=lTO100 :NEX
T:I$=INKEY$:IFI$="",PRINTg>448, STRING* (36, 32) ; : FORI =lTO100 : NEXT: GOTOl
02 ELSE IFASC(I$) =91, RETURN ELSEIFASC (1$) =13,104 ELSE102
104 PRINT*448,Ml$;«'448,"CARREGANDO O NUMERO DE REGISTROS" ; : INPUT#-1,
N:PRINT*448,Ml$;#448,"CARREGANDO REGISTRO -««> " ; :FORI = lTON: PRINT©47
4,I;:INPUT#-1,CD$(I) ,NM$(I) ,ED$(I) ,TL$(I) ,BR$ (I ) ,CI$ ( I) ,ES$(I) ,CE$ (I
) :NEXT:PRINT©448,M1$;«448, "ARQUIVO NA MEMORIA";
106 PRINT«74,M2$;:FORI = lTO100:NEXT:I$ = INKEY$:IFI$ = "",PRINTe>974,STRI
NG$(32,32) ; :FORI=lTO100:NEXT:GOTO106 ELSEIFASC (1$) =13, RETURNELSE106
200 GOSUB3000:PRINT*146, "GRAVAR ARQUIVO NO CASSETE";
202 PRINT©448,"POSICIONE A FITA E PRESS < RETURN >" ; :FORI=lTO100 :NEX
T:I$=INKEY$:IFI$="",PRINT»448,STRING$(36,32) ; : FORI =1T0100 : NEXT: GOT02
02 ELSEIFASC(I$)=91,RETURN ELSEIFASC(I$) =13, 204 ELSE202
204 PRINT©448,Ml$;©448,"GRAVANDO O NUMERO DE REGISTROS" ; :PRINT#-1 ,N:
PRINT©448,Ml*;«448,"GRAVANDO REGISTRO ===> "; :FORI=lTON :PRINTe>472, I;
:PRINT#-1,CD$(I) ,NM$(I) ,ED$(I) ,TL$(I) ,BR$(I) ,CI$(I) ,ES$(I) ,CE$(I) :NE
XT:PRINT*448,M1$;»448, "ARQUIVO GRAVADO"; :GCTOl06
300 IFN=100,396 ELSEGOSUB3000 : PRINT©150 , "COLOCAR REGISTRO";
301 A=0:FORB=384TO832STEP64:A=A+l:PRINT€»B,M$(A) ; :NEXT B
302 FOR B=N+1T0100:PRINT©167,B;
311 PRINT©395,; :J1$=" ": INPUTJl$ :GOSUB399 : IFC=1, RETURN ELSE IFJ1$<>"
",CD$(B)=J1$ ELSECD$(B)=" "
312 PRINT©448,MJ(2) ; :J1$=" ": INPUTJl! :GOSUB399 : IFC=1 , RETURN ELSE IFJ
1$<>" ",NM$(B)=J1$ ELSENM$(B)=" "
313 PRINTC612,M$(3) ; :J1$=" ": INPUTJl* :GOSUB399: IFC=1 .RETURN ELSE IFJ
lf<>" ",ED$(B)=J1$ ELSEED$(B)=" "
314 PRINT«576,M$(4) ; :J1$=" ": INPUTJl* :GOSUB399 : IFC=1 , RETURN ELSE IFJ
1$<>" ",TL$(B)=J1$ ELSETL$(B)=" ■
315 PRINT«640,M$(5) ; :J1$=" ": INPUTJl! :GOSUB399 : IFC=1 .RETURN ELSE IFJ
1$<>" ",BR*(B)=Jlf ELSEBR$(B)=" "
316 PRINT«704,M$(6) ; :J1$=" ": INPUTJl! :GOSUB399 : IFC-1, RETURN ELSE IFJ
1$<>" ",CI$(B)=J1$ ELSECI$(B)=" "
317 PRINT#768,M$(7) ; :J1$=" ": INPUTJl! :GOSUB399 : IFC=1 .RETURN ELSE IFJ
1$<>" ",ES$(B)=J1$ ELSEES$(B)=" "
318 PRINT«832,M>(8) ;:J1$-" ": INPUTJl* :GOSUB399 : IFC=1 , RETURN ELSE IFJ
1$<>" ",CE$(B)-J1$ ELSECE$(B)=" "
395 FORK=395T0843STEP64 :PRINTeK, STRING* (52, 32) ; :NEXT:NEXT B
396 GOSUB3000:PRINT«135,"NAO EXISTE ESPACO NO ARQUIVO PARA OUTRO REG
ISTRO"; :GOTO106
399 IFJ1*="+",C=1:N=B-1: RETURN ELSE C=0 : RETURN
400 IFN-0.450 ELSEGOSUB3000:PRINT©1SO . "MODIFICAR REGISTRO";
401 PRINT»448,"QUAL O NUMERO DO REGISTRO A SER MODIFICADO ";: INPUT R
M* : I FRM*"t", RETURN ELSE R=VAL(RM$> : IFR<10RR>N,PRINT«448,M1* ; :GOTO401
ELSEGOSUB3000
402 PRINT#136,"INSERIR AS MODIFICACOES NOS CAMPOS DESE JADOS " ; : A=0 : FO
RB=384T0832STEP64:A=A+1:PRINT«B,M*(A) ; :NEXT
411 PRINT#396, ; :K*=" " : INPUTK* :PRINT#448,M* ( 2) ; : IFK*="" , 412 ELSECD$(R
)=K*
412 PRINT*460, ; :K* = " " : INPUTK*:PRINT#512,M* ( 3) ; :IFK*="",413 ELSENM*(R
)=K*
413 PRINT*524,;:K*="":INPUTK*:PRINTe576,M*(4)
)=K*
:K*="":INPUTK*:PRINTe640,M*(5)
:IFK*="",414 ELSEED*(R
:IFK*="",415 ELSETL*(R
:K*="":INPUTK*:PRINTe704,M*(6) ; :IFK*="",416 ELSEBR*(R
:K*="":INPUTK*:PRINT«768,M*(7) ; : IFK* ="", 417 ELSECI*(R
:K*=*"":INPUTK*:PRINT*832,M*(8) ; :IFK$="",418 EL6EES*(R
414 PRINT#588,
)=K$
415 PRINT 652,
)=K$
416 PRINTO716,
>=K*
417 PRINT«780,
)=K*
418 PRINT#844,; :K*="":INPUTK*:IFK*="",420 ELSE CE*(R)=K*
420 F0RF=396TO844STEP64:PRINT#F,STRING*(51,32) ; :NEXT
430 PRINT*396,CD*(R) ;#460,NM*(R) ;#524,ED*(R) ;*588,TL$(R) ;©652,BR$(R)
.-•716,CI*(R) ;3780,ES*(R) ;#844,CE* (R) ;#129 , STRING* (61, 32) ;«140, "CONST
TITUICAO ATUAL DO REGISTRO #" ;R; :GOTO106
450 GOSUB3000:PRINT©150, "ARQUIVO INEXISTENTE" ; :GOTO106
500 IFN=0,450 ELSEGOSUB3000:PRINT«146 , "DELETAR REGISTRO";
505 PRINT«448,"QUAL O NUMERO DO REGISTRO A SER DELETADO " ; : INPUTDR* :
IFDR*="t ".RETURN ELSEDL=1 : D=VAL(DR$) : IFD<10RD>N,PRINT*448,M1$ ; :GOT05
05
510 CD*(D)-" ":NM*(D)=" ":ED*(D)=" ":TL$(D)=" ":BR$(D)=" ":CI*(D)="
":ES$(D)=" ":CE*(D)=" " :PRINT©4 48, Ml* ;#448, "REGISTRO >"D"< DELETADO"
; :FORY=lTO1500:NEXT:PRINT»448,Ml?;»448, "AGORA O ARQUIVO SERA CLASSIF
ICADO"; :FORY-lTO2000:NEXT:GOSUB912:RETURN
600 IFN-0,450 ELSEGOSUB3000 :PRINT«150 , "CONSULTA AO ARQUIVO";
MICRO SISTEMAS, janeiro/84
□ HilOERECQ
0E TQ0D5 Q5
MICROS
Em nossa loja somos todos
Pro informatica Pro didatica e
Pro eletronica
FLEXIOISK
■nnK
MOM
fii+ f „HMx (fp Unitron
9
PROCOGtCA
^oppkz
SLsTRINICA
PRd ELETRONICA
COMERCIAL LTDA.
Rua Santa Efigema. 568 - CEP 01207 - Sao Paulo - SP
Te)» 22a 7888 - 221 9055 - Telex (Oil) 34901 - POEC
OSEKE-
MICROS,
VIDEOS, GAMES & CIA.
Computadores:
Polymax, Unitron, Prolbgica,
Micro Digital. Sysdata.
• OFERTA ESPECIAL •
"MAXXI"
Videos: Philco e Sharp
Televisores Sanyo
Video Games: Dynacon,
Atari.
OFERTA: Cartuchos para Atari
a preco de custo.
Suprimentosi Fitas, Disquetes,
Formularios.
• Super Oferta •
Disquete Memorex 5 1/4- Cr$ 5.000,00
CURSOS: Basic I, Basic II
Inscrigoes Abertas
Rua Estados Unidos, 2141
Tel. 852-8290 / 257-3852 / 231 -1 173
CADASTRO DE CLIENTES
CW B U G
MONITOR E DISASSEMBLER
■B»m «• fifim hwwm —
■JMPJVi ■' ~i: i
Oic.l
encti ii mtifxlti in nn|a
hm.Hi / M tftt MM
*•»!■• ?) C*«l»ltl mi.Ht'fl pi'l Iff tltftvt' IftMlHII
MH" nKntf »•*" U"*f«> MNH «t paginal ••. ".gvaga*
LI .tfHltM .. CHJ • HWNM M »0H • «»" CM iMl M. ■■•<-•
'K* aa«*acaa aaa.Ha.aa c*p t«4'M p'agramai w* l*StC M ■.|l H 9*w
'#"•••■»» m«i|»«.||>|i al'l fflt.fl «aiaMal«l»a«"9
(M »» HI'"" •» "»!»•«•» •■■••>l| caatllna' l
■»ll ll»>llllliw 111) II 13 IK IS «l I MM • C» ?X
Mf CO cat I JM H
C«MICMM M |«IM
PC0I00S HIOItHTf CHfOUf NOHiXIl I
CWB
MICROCOMPUTAOORES LTOA
CAIXA POSTAL - 3447
80.000 - CURITIBA - PR
60
601 A-0:FORB-406TO854STEP64:A-A+l:PRINT©B,Ml(A) ;"> "A" <";:NEXT
602 PRINT©975,"SELECIONAR O CAMPO PARA CONSULTA" ; :FORI=lTOl00 :NEXT : I
|=INKEY|:IFI|="",PRINT©975, STRINGI (32, 32) ; : FORI=lTOl00 :NEXT:GOTO602
ELSEIFASC (II) =91, RETURN ELSEP=VAL( II) : IFP<10RP>8, 602ELSEGOSUB3000
603 ON P GOSUB 610 , 620 ,630 , 640 ,650 ,660 , 670 ,680 : RETURN
610 X=0:PRINT©146,"INTRODUZIR: COD#";©448 , "===> " ; : INPUTI$ :GOSUB699 :
IFC=1 , RETURN ELSEFORI=lTON: IFCDl ( I ) =1$ , X=X+ 1 : X ( X) -I
615 NEXT:IFX=0,AI="CODIGO":GOTO690 ELSE695
620 X=0:PRINT©146,"INTRODUZIR: NOME" ;©448, "===> "; :INPUTI$ :GOSUB699 :
IFC=1 , RETURN ELSEFORI = lTON : IFNMI ( I ) =1 $ , X=X+ 1 : X ( X) =1
625 NEXT:IFX=0,Al="NOME":GOTO690 ELSE695
630 X=0:PRINT©146,"INTRODUZIR: ENDERECO" ,-©448 , " = = = > " ; : INPUTII : GOSUB
699 : IFC=1 , RETURN ELSEFORI = 1T0N : IFED$ ( I ) =1 $ , X=X+1 : X ( X) =1
635 NEXT:IFX=0,Al="ENDERECO":GOTO690 ELSE695
640 X=0:PRINT©146,"INTRODUZIR: TELEFONE";©448 , "===> ";: INPUTII: GOSUB
699 :IFC=1, RETURN ELSEFORI=1TON : IFTLI ( I ) =11 , X=X+1: X(X) =1
645 NEXT:IFX=0,Al="TELEFONE":GOTO690 ELSE695
650 X=0:PRINT©146,"INTRODUZIR: BAIRRO" ,-©448, "»=«> M ; : INPUTI$ :GOSUB69
9: IFC=1, RETURN ELSEFORI=lTON : IFBRl ( I) =11, X=X+1 :X (X) =1
655 NEXT:IFX=0,A$="BAIRRO":GOTO690 ELSE695
660 X=0:PRINT©146,"INTRODUZIR: CIDADE" ;©448 , "===> " ; : INPUTI$ :GOSUB69
9 : IFC = 1 , RETURN ELSEFORI=lTON : IFCIl ( I ) =1$ , X-X+l :X (X) »I
665 NEXT:IFX=0,Al="CIDADE":GOTO690 ELSE695
670 X=0:PRINT©146,"INTRODUZIR: ESTADO" ;©448, "== = > " ; : INPUT1$ :GOSUB69
9: IFC=1, RETURN ELSEFORI=lTON: IFES$ (I) =1$, X=X+1 : X (X) =1
675 NEXT :IFX=0,A$= "ESTADO" :GOTO690 ELSE695
680 X=0:PRINT©146,"INTRODUZIR: CEP" ;©448 , »— »> " ; : INPUTII :GOSUB699 : I
FC=1, RETURN ELSEFORI = lTON : IFCEl (I ) =11 ,X=X+1 :X (X) -I
685 NEXT:IFX=0,A$="CEP":GOTO690 ELSE695
690 GOSUB3000:PRINT©66,A|": "II ;©194 , "DIGITACAO ERRADA OU NAO CONSTA
NO ARQUIVO";:GOTOl06
695 GOSUB3000:PRINT©1 50, "REGISTRO # "; :A=0 : FORI=384T0832STEP64 : A=A+1 :
PRINT©I ,M| (A) ; :NEXT
696 FORJ=1TOX:PRINT©396,CDI(X(J) ) ;©460,NM: X(J) ) ;©524 ,ED| <X( J) ) ;©588
,TL|(X(J));©652,BRI(X(J)) ;©716,CI| (X (J) ) ;«! 780 ,ESI (X ( J) ) ;©844 ,CE| (X (J
)) ;©160,X(J) ;
697 PRINT©974,M2|; : FORA=lTO100:NEXT: I$=INKEY$ : 1FI$=" " ,PRINT©974 ,STRI
G$(32,32) ;:FORA=lTO100:NEXT:GOTO697 ELSEIFASC ( II) =13, FORA=396T0844ST
EP64 :PRINT©A, STRINGI (51, 32) ; :NEXTA ELSEIFI|="P" ,GOSUB750 :GOT0697 ELS
EIFI|="+ ".RETURN ELSE697
698 NEXT:GOSUB3000:PRINT©146,X"REGISTRO(S) ENCONTRADO (S) " ; : GOTO
106
699 IFII="t",C=l: RETURN ELSEC=0 : RETURN
700 IFN=0,450ELSEGOSUB3000:PRINT©146,"LISTAR ARQUIVO ( CRT )";
701 PRINT©384,"F - AVANCA LISTAGEM" ;©448 , "T - RETROCEDE LISTAGEM" ;©5
12, "P - IMPRIME REGISTRO APRESENTADO" ;
702 PRINT©974,M2|; :FORA=lTO100 :NEXT: I|=INKEY| : IFI|="" ,PRINT©974 ,STRI
NGI (32,32) ;:FORA=lTO100:NEXT:GOTO70 2 ELSEIFASC (1$) =91 , RETURNELSEIFAS
C(I$)=13,GOSUB3000 ELSE702
705 PRINT©150, "REGISTRO # "; :A=0 : FORI=38«T0832STEP64 :A=A+1 :PRINT©I , Ml
(A) ; :NEXT:J=lGOTO720
715 I|=INKEYI:IFII="",715 ELSEIFI$="F" , J=J+1 :GOTO720 ELSEIFI|="T" , J«
J-l:GOTO720 ELSEIFII="P" .GOSUB750 :GOT0715 ELSEIFASC ( 1$) =91 , RETURN EL
SE715
720 IF J N,J=J-1:GOT0715 ELSEIFJ l,J=J+l:GOT0715 ELSEGOSUB730 : PRINT©
396,CD$(J) ;©460,NM$(J) ;©524,ED$(J) ;©588,TLl(J) ;©652 ,BR| ( J) ;©716,CI$('
J) ;©780,ES|(J) ;©844,CE$(J) ;©160,J; :GOT0715
730 FORI=396T0844STEP64:PRINT©I, STRINGS (51, 32) ; :NEXT:RETURN
750 LPRINTSTRING$(80,42) :LPRINTTAB (34 ) "BANCO DE DADOS" tLPRINTTAB (28)
"LISTAGEM DO REGISTRO # "J :LPRINTSTRING$ (80, 42) :LPRINT
760 LPRINTTAB (10) Ml (l)CDl (J) : LPRINTTAB ( 10) Ml ( 2) NM| ( J) :LPRINTTAB (10) M
|(3)ED|(J) :LPRINTTAB(10)M|(4)TL|(J) tLPRINTTAB ( 10) Ml (5) BRI (J) :LPRINTT
AB(10)M$(6.)CI*(J> :LPRINTTAB(10)M|(7)ESI(J) : LPRINTTAB ( 10) Ml ( 8) CEl ( J) :
RETURN
800 IFN=0,450 ELSEGOSUB3000
801 PRINT©146, "LISTAR ARQUIVO ( PRINTER ) " ;©512, "LISTANDO REGISTRO =
=»>"; :CL=48:CP=0
805 F0RX=1T0N:PRINT©5 3S,X; : IFCL=48 ,GOSUB880
815 LPRINTTAB (0) "= "X" =" ;TAB ( 10) M$ ( 1) CD$ ( X) : LPRINTTAB ( 10) M$ ( 2) NM$ ( X
) : LPRINTTAB ( 10) Ml ( 3) EDI (X) : LPRINTTAB ( 10) Ml ( 4) TLI ( X) : LPRINTTAB ( 10) Ml (
5)BR|(X) :LPRINTTAB(10)MI(6)CII(X) : LPRINTTAB ( 10) Ml (7) ESI (X) :LPRINTTAB
(10)M|(8)CE|(X) :CL=CL+8:LPRINT:NEXT
850 LPRINTCHRK140) ; :FORW = lTO10 :LPRINTTAB ( 2) STRINGI ( 30 , 42) " FIM DA L
ISTAGEM "STRINGI (30,42) :NEXT:PRINT©512 , Mil ;©512 , "LISTAGEM COMPLETADA
"; :GOTO106
880 LPRINTCHRK140) ; :CL=0 :CP=CP+1 :LPRINTSTRINGl (80 , 42) -.LPRINTTAB ( 33)
"BANCO DE DADOS": LPRINTTAB (30) "LISTAGEM DOS REGISTROS "; STRINGI ( 19 , 32
) ;"PAG. ";CP:LPRINTSTRING|(80,4 2) : LPRI NT : RETURN
900 IFN=0,450 ELSEGOSUB3000 :PRINT©150, "CLASSIFICAR ARQUIVO";
912 K=0:I=0
915 PRINT©512, Mil ;: 1=1+1
916 IFCDI(I) <» CD|(I+1),925
917 T1|=CDKI) :T2|=NM|(I) :T3|=EDl(I) :T4|=TLI(I) :T5I=BR|(I) :T6|=CII(I
) :T7|=ESI(I) :T8|=CEI(I) :GOSUB934
921 CD|(I+1)=T1|:NMI(I+1)=T2|=EDI(I+1)=T3|:TLI(I+1)=T4|:BR|(I+1)«T5|
:CI|(I + l)=T6|:ESI(I + l)=T7|-.CEl(I + l) =T8I:K»1
925 PRINT©512, "CLASSIFICANDO ARQUIVO. REGISTRO * " ; I ;: IFI <* (N-2
) ,915
930 IFK<>0,912 ELSEIFDL=1 ,PRINT©512 ,M1I ;©512 , "ELIMINANDO REGISTRO DE
LETADO"; ELSE935
932 N=N- 1 : FORI = lTON : GOS UB9 3 4 : NEXT : DL=0 : GOT09 35
934 CD|(I)=CDKI+1) :NM|(I)=NM|(I+1) :ED| (I ) =EDl (1 + 1) :TL| ( I ) =TL| (1 + 1) :
BR|(I)=BR|(I+1) :CII(I)=CII(I+1) :ESI ( I ) =ES| ( 1+1) :CE| ( I) *CEI (1+1) :RETU
RN
935 PRINT©512,M1I; 512, "ARQUIVO CLASSIFICADO"; :GOTO106
3000 CLS:FORI=1536lTOl5421:POKEI,ll:POKEI+256,21:NEXT:FORI=15424T015
552STEP64 :POKEI ,210 :POKEI+62 , 205 :NE XT : RETURN:
MICRO SISTEMAS, janeiro/84
Q
UJ
LJ
MAIS SUCESSO PARA VOCE !
Comece uma nova fase na sua vida profissional.
Os CURSOS CEDM levam ate voce o mais moderno ensino
tecnico programado e desenvolvido no Pais.
CURSOS DE APIRfEipOAMENTO
CURSO DE ELETRONICA DIGITAL
E MKROPROCESSADORES
Sao mais de 140 apostilas com mformacdes completas e sempre
atualizadas ( Tudo sobre os mais revolucionano CHIPS. E voce
recebe. alem de uma sohda formac3o teorica. KITS elaborados
para o seu desenvolvimento pratico. Garanta agora o seu futuro
Z*c
tm I I t
CEDM 20 KIT
de Ferramentas.
CEDM 78 KIT
Fonte de Ahmentacao
5v/1A. CEDM 35 KIT
Placa Experimental
CEDM 74 KIT
de Componentes.
CEDM 80
MICROCOMPUTADOR
Z80 ASSEMBLER.
CURSO DE
PROGRAMAQto EM BASK
Este CURSO. especialmente programado, oferece os
fundamentos de Lmguagem de Programaca"o que domtna o universo
dos microcomputadores. DmSmicoe abrangente. ensina desde o BASIC
basico ate o BASIC mais avancado. inclui'ndo nocoes basicas sobre
Mampulacao de Arquivos. Tgcmcas de Programacao. Sistemas de
Processamento de Dados, Teleprocessamento. Multiprogramacao e
Tecmcas em Lmguagem de MSquina. que proporcionam urn grande
conhecimento em toda a a>ea de Processamento de Dados
s
KIT CEDM Z80
BASIC Cientlfico.
KIT CEDM Z80
BASIC Simples.
Gabanto de Fluxograma
E 4. KIT CEDM SOFTWARE
Fitas Cassete com Programas.
-a
CURSO DE
eletronica e Audio
Metodos novos e meditos de ensino garantem urn aprendizado
pratico muito melhor. Em cada nova lica~o, apostilas ilustradas
ensinam tudo sobre Amplificadores, Caixas Acusticas, Equalizadores,
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Capsulas
e Fonocaptadores. Microfones. Sonorizacao. Instrumentacao de Medidas
em Audio. Tecnicas de Gravaqao e lamWm de ReparacSo em Audio.
i » = • •
1
.
.1
1
. !■ .
CEDM 1 KIT de Ferramentas. CEDM 2 - KIT Fonte de AhmentacSo
+ 1515/1A. CEOM 3 KIT Placa Experimental
CEDM 4 • KIT de Componentes. CEDM 5 - KIT Preamplificador
Esterso. CEDM 6 ■ KIT Amplif icador Estereo 40w.
Voce mesmo pode desenvolver urn ritmo proprio de estudo. A lin-
guagem simplificada dos CURSOS CEDM permite aprendizado facil. E
para esclarecer qualquer duvida, o CEDM coloca a sua disposicao uma
equipe de professores sempre muito bem acessorada. AI6m disso, voc#
recebe KITS preparados para os seus exercfcios praticos.
Agil, moderno e perfeitamente adequado a nossa realidade, os CUR-
SOS CEDM por correspondencia garantem condigoes ideais para o seu
aperfeicoamento profissional.
GRATIS
Voc6 tambem pode ganhar urn MICROCOMPUTADOR.
Telefone (0432) 23-9674 ou coloque hoje
mesmo no Correio o cupom CEDM.
Em poucos dias vocS recebe nossos catalogos de apresentacao.
P » ■■■ Avenida Sao Paulo, 718 - Fone (0432) 23-9674.
*-J*m)jJ\ I CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR
CURSO DE APE RFE IQOAMENTO POR CORRESPONDENCIA
Solicito o mais rapido possivel informacoes sem compromisso sobre o
CURSO de
Nome
Rue
Cidade
Bairro CEP
MS
Defenda-se dos tiros inimigos e ao mesmo tempo mire pra valer: mostre que
voce e" um craque da artilharia a laser com este jogo para a linha Sinclair
Laser Base:
o tiro do canhao
Armando Neves
Ojogo Laser Base, similar ao jogo
de flipper deste nome, roda nos
equipamentos da linha Sinclair e
e" constituido de dois canhOes: o inimigo
(controlado pelo computador) e o do jo-
gador. objetivo deste e" destruir o maior
numero de inimigos possivel, atirando
com seu laser e evitando acertar os me-
teoros.
Para mover seu canhao. voce devera
utilizar as teclas 5 (cursor para a esquer-
da) e 8 (cursos para a direita), disparan-
Blocos em Assemi
bier
16534 2A
84
40
01
B5
n?
B7
ED
00
06
15
B7
ED
52
7E FE
42
FD
5R
8?
40
ns
B7
ED
80
20
06
Jfa
8E
10
F4 18
52
1C
FF
00
20
n
Kl
23
12
FE
B4
28
0E
36
97 CD
7E
FE
76
?R
19
36
BB
22
Fl
41
36
BB
21
RE
40 34
82
40
2B
36
80
18
OF
El
CD
Fl
41
CD
D9
41
18 0A
2B
7E
FE
76
28
08
22
82
40
36
BB
23
36
80
18
0A
16764
2A
00
86
E5
40
Dl
06
23
03
1A
C5
ED
01 IE
B0 12
16600 2A
8A
40
?1
??
8A
40
7E
23
23
01
A5
00
09
CI 10
FE
n?
DA
1A
41
?A
82
40
EC
2A
90
40
06
03
C5 01
06
15
11
?1
00
19
7F
FE
IE
00
E5
Dl
1A
2B
ED B8
80
?n
06
36
RF
10
F6
18
12
2B
2B
01
E/
00
09 CI
14
FF
R4
?R
in
FS
?1
8C
10
EC
JA
8C
40
FE
9C 4F
40
15
El
16
97
CD
Fl
41
CD
2A
88
40
//
0E
64 06
36
Afi
CD
Fl
41
CD
n9
41
IE
10
FE
0D
20
F9
21 92
00
00
18
06
40
00
34
00
CB
C3
4E
96
CA
40
D8
40 36
16666 2A
84
40
PR
FF
FF
2F
20
0E
?B
7E
FF
76
28
08
22
16857
2A
OC
40
01
2C
03
3E 8E
84
40
16
A6
?3
36
80
FE
KD
Al
20
03
2B
Jb
80 78
3B
70
OF
?3
7F
FF
76
28
Bl
H
00
20
Fl
C9
00 00
08
22
84
40
36
A6
2B
36
0E
F9
C8
C9
0b
C8
10
FE
0D 20
80
FE
3E
C2
7C
41
11
21
do com a tecla 0. Sao 50 os niveis de di-
ficuldade e, se o canhao inimigo acertar
o seu tres vezes, ojogo acaba.
O programatemaestrutura semelhan-
te a dos outros publicados. A parte em
Assembler pode ser digitada com o au-
xilio do Monitor Assembler publicado
em MICRO SISTEMAS numero 23. Sio
cinco blocos de dados hexadecimais,
que funcionam da seguinte maneira:
• Bloco 1 (16534) - move o canhao ini-
migo para o lado mais prbximo do joga-
dor;
• Bloco 2 (16600) - calcula e atira so-
bre ojogador;
• Bloco 3 (16666) - move e faz atirar o
laser do jogador;
• Bloco 4 (16764) - movimenta os me-
teoros;
• Bloco 5 (16857) - sub -ro tin a de espe-
ra , servindo tamWm para apagar os tiros.
Entre primeiro com os blocos em As-
sembler e, logo depois, com a listagem
BASIC. Bons tiros!
62
Armando Neves 4 estudante de Engenharia na
UFRJ e Informa'tica na PUC, a usuirio de um
TK82-C.
MICRO SISTEMAS, janeiro/84
Laser Base
10
REM .. . (80) . . .
12
REM . .. (60) . . .
14
REM . .. (92) . . .
16
REM . ..187) ...
18
REM . . . (42) . . .
#
20
CLS
22
2 5
GOSUB 500
IMf l AMR HASJ *» \K\«
HH2SHI
30
POKE 16418,0
40
LET A$--"^M^^^BI^^B^Bi
50
FOR K=l TO 4
60
PRINT A$
70
NEXT K
74
LET B$ = "BMBM^BO
•
IVTflfl 1h
7 6
LET P = 2
80
FOR K=l TO 6
90
PRINT B$(P TO );B$( TO P-l)
;A$;A$
#
100
LET P=P+2
110
NEXT K
120
PRINT A$
140
LET A=16514
•
150
PRINT AT 2,0;
160
GOSUB 300
165
PRINT "B"
&
170
PRINT AT 2 3,16;
180
GOSUB 300
185
PRINT "D"
190
PRINT AT 5,0;
»
W 200
GOSUB 300
210
PRINT AT 0,14;
220
GOSUB 300
230
POKE 16524,159
•
240
LET A=16528
250
PRINT AT 8,31;
260
GOSUB 300
270
POKE 16526,0
280
GOTO 340
300
POKE A, PEEK 16398
310
POKE A+1,PEEK 16 399
A 320
LET A=A+2
*
330
RETURN
340
POKE 16418,2
350
RAND USR 16534
360
FOR K=l TO 50
370
NEXT K
380
CLS
390
PRINT AT 8,9;"FIM DO JOGO"
400
PRINT AT 13,7;"NAVES ACERTA
DAS:
';PEEK 16526
410
PRINT AT 18,5; "QUER JOGAR N
OVAMENTE ? " ; AT 18.5; ttTH;e»i«I*Mf
[EQNMtoitim
420
IF INKEY$="" THEN GOTO 410
430
IF INKEY$="S" THEN RUN
440
PAUSE 9999
450
STOP
500
PRINT AT 5,10; "LASER BASE"
510
PRINT AT 12,5; "ARMANDO LUIZ
A.
NEVES"
520
PRINT AT 19,2;"NIVEL DE DIF
ICULDADE ? (1/50) "
530
INPUT A
540
POKE 16828, A*2+10
•
550
CLS
560
RETURN
600
SAVE "LASER"
610
RUN ■
#
MICRO SISTEMAS, janeiro/84
ScftKnistiari
Revendedores Autorizados
Rio de Janeiro
SeletTOnlx
Republico do libona 25-A
Rio de Janeiro - RJ
CE P 20061
GOCtMt
R Dr EIJok*. 25 S6
Nova Fnburgo RJ
Ml 22 4206
voc
Av Brosl. 10S/07
Araruoma RJ
CEP 28970
tNTREUVROS
Av Ro Branca 156 ISneo
Rio de Janeiro • RJ
MO,
Vise OePiraia. 303/217
Rio de Janeiro RJ
•el 2678597
Pemambuco
Eletrontca Itabele
R Porto Alegre 112
Coruoru Pfc
CEP 56100
AJagoa*
E»poen»e
Av Siqueira Campoi 838
MoceidAl
iel (082)223 3979
Sao Paulo
Imares
Av aos imarei <I67
SdoPouio SP
tel 614049 610946
rOto^O
R Boa Visto. 314 - 3° onctor
Sao Paulo SP
•el 35 7131R/32
Memocord*
R Amodor Buena 856
RiDei'do Preto SP
•el (016)636 0586
Fotopltca
Atarnedo Jurud. 434
Sdo Paulo -SP
lei 4215211
m
R Frei Coneco. 7
Santos - SP
tel 361792
Compotorlond
Av Angelica 1996
SdoPautoSP
aP 01228
Uvrorta PoNedro
R Aurora 704
So© Paulo SP
tel 2216764
RC Mtcrocomputodorei
Av Estodos Unidos. 983
Pirocicoba • SP
•el 33 7018
Rio Grande do Sul
Advancing
R Androaos. 1560 galerla
Malcon 518 Porto AJegre ■ RS
tel 26 8246
JH Santot
Pea Otavio Rocna. 41
Porto Alegre RS
CEP 9O000
Indto Center
R Flonano Peixola 1112 coni
33/43 Santa Maria RS
tel (055)221 7120
Geremloltda.
Av Julio de Cojtlihos. 1872
Camas do Sul • RS
tel 221 1299
Nordemoq
Av JuMo de Castiihos. 3240
Caxias do Sul • RS
lei 221 3516
Mlcromego
R Julio de Castiihos. 441 ■
1°ondar NcvoHomourgo RS
tel (0612)93 4721
Bahia
Oncclna
Snooping Center rtoigoro
Ii40 1°o*o
Sarvooor BA
•el (071)248 6666
Santa Catarina
Supermlcro Show
R dos iineus. 10 li 6
Fkxionopolis SC
•el 22 8770
Parand
Compultque
Av Bate). 1750
CurlliDO - PR
tel 243 1731
Modlton
Av Mol Deodoro. 311
Cuntiba PR
tel 224 3422
Minos Gef ok
Compuftonb
R Sergipe. 1422
Beto Horiwnle MG
tel (031)225 3305
EletrofOdlo
R Aouiies loba 441 A
Belo Horuonte • MG
tel (031)222 8903
M*CfO POQOS
R Assis F^ueireda 1072
Pecos de CaWas ■ MG
tel (035) 721 1883
Wow-Up
Av Ftoriono Peuota 396
Uberlonaia MG
Iel 235 1413 235 7369
Bras*)
s5?T302 bl A 1, 63
BrosWa-DF
tel (061)2254534
CHEDENQAMC6 NOVOS REVENDEDORES FARA TDDO O BRASH
mi«o
nEUb
Microcomputadores com credito direto ou leasing
COLOR 64 CrS 425 000. x 2 (GRATIS APUCATIV0S)
CP-200 CrS 110.000. x 2 (GRATIS 20 J0G0S)
DGT-1000CrS268 000. m 3 (GRATIS 20 J0G0S)
TK-85 CrS 115 000. x 2 (GRATIS 16 J0G0S)
CP-500 CrS 690 000. • 2 (GRATIS 20 J0G0S)
CURS0S DE BASIC COM ATE 100% DE DESC0NTI
ENTREGA RAPIDA EM T0D0 BRASIL
Aplicativos: controle de estoque: contabilidade: lolha de
pagamento: contas a receber pagar: mala direta: cadastro
de clientes e desenvolvimento de software para cada neces-
sidade.
Temos toda linha de perifericos e suprimentos para acorn
panhar o crescimento de sua empresa.
VISITE-NOS 0U S0LICITE UM REPRESENTANTE
MICRONEWS COMERCIO E SERVICOS LTDA
R Assembleia 10 Gr. 3317 • Ed. Centro Candido Mendes
Tel.: (0211 252 9420 CEP 20011/RJ.
Cade o ratinho que tava aqui? A cobra comeu ! E, se voce for esperto,
comera muitos mais, neste jogo para a linha Apple, adaptavel a qualquer outro micro
Cobra pega rato e...
o !
Claud io Esperanca
E muito dificil fazer um jogo lnteressante e simples ao
mesmo tempo. Mais dificil ainda e faze-lo sem usar
truques e macetes especiais. jogo que apresento a
seguir, no entanto, tenta atingir esses objetivos. Ele foi
elaborado para computadores compativeis com o Apple, mas
acredito que sera muito facil adaptd-lo para rodar em qualquer
outro equipamento que disponha de linguagem BASIC.
O objetivo do jogo e muito simples: voce controla uma cobra
(representada por uma sene de arrobas — @ ) que esta
continuamente se movimentando na tela. Em algum lugar
encontra-se um rato (representado por um astensco - *).
que voce deve fazer e guiar a cobra ate onde se encontra o
rato. para que ela o coma. Fazendo isso, um ponto e anotado
no seu score e a cobra aumenta de tamanho.
Voce tern tres chances para comer quantos ratos puder. "Bom,
mas qual e a dificuldade afinal?", voce perguntana.
problema e" que voce nao pode deixar a cobra colidir consigo
mesma ou com as beiradas da tela. Tambe'm e* fatal voce tentar
fazer com que a cobra volte por sobre si mesma, isto e\ se a
cobra esta" se movimentando para cima. voce nao pode
comanda'-la para andar para baixo.
Os controles sao os seguintes:
.) ><-
->« (•
Para entrar com o programa num computador Apple ou
similar, basta digita-lo tal como esta na listagem a seguu. Para
adaptar o jogo para outros computadores, vale a pena dar
algumas dicas:
1) MX e MY sao, respectivamente, a largura da tela (40
colunas) e o numero de linhas mcnos 2 (22 linhas). Se o seu
display e diferente, basta modificar estes valores.
2) HTAB < n > e VTAB n sao os comandos usados no
Apple para posicionar o cursor numa determinada coluna
(HTAB) de uma determinada linha (VTAB).
3) A sub-rotina que vai da linha 70 ati a linha 76 simplesmente
venfica se foi apertada alguma tecla (e para isso que servem
os PEEKs).
4) comando INVERSE faz com que os caracteres impressos
na tela aparecam pretos em fundo branco; o comando
NORMAL serve para cancela-lo, voltando os caracteres a
aparecer brancos em fundo preto. Se o seu computador nao
possui comandos semelhantes, retire-os e substitua o branco
atnbui'do a SS na linha 100 por um career qualquer que fique
bem para delimitar as beiradas da tela.
Cldudio Esperan$a 6 formado em Engenharia Eletrdnica pela UFRJ. Foi
anal is ta e professor do Nucleo de Computacao Eletrdnica desta mesma
universidade durante quatro anos Atualmente trabalha como analista
de sistemas na empresa de processamento de dados da PrevidSncia So-
cial (Dataprev) e 4 professor de BASIC no Instituto ORT.
JOGO DA COBRA
POR: CLAUD 1
ESPERANCA
REh
1 REM
2 REM
3 REM
4 REM «»«**•*•*#»*♦*♦«»»
5 CLEAR
IO MX = 40: MY - 22
20 DIM S7. (MX, MY) , I XV. <4) , IYV. (4)
30 GOTO 100
40 HTAB X: VTAB Y: PRINT S*;:SV. (
- V: RETURN
50 RX - INT ( RND (1) » (MX - 3)
) ♦ 2:RY « INT ( RND (1) »
(MY - 3) +2): IF S7.(RX,RY>
GOTO 50
51 V - 6:S* -
GOSUB 40: RETURN
6<J X ■ = Y + i •
RETURN
70 A = PEEK ( - 16384): IF A < 1
28 THEN RETURN
71 B « PEEK ( - 16368): ON A - 2
OO GOTO 73,74,75,72,76
72
RETURN
7 7
D
" 4s
RETURN
7 4
U
- 2:
RETURN
75
D
- l!
RETURN
Jogo da cobra
I
76 D = 3: RETURN
80 HTAB 1: VTAB MY * 1 : PRINT "R
ATOS: ":R, "CHANCES: ";C; : RETURN
1O0 HOME :S* = " ":V = 5: INVERSE
110 FOR X = 1 TO MX:Y = 1: GOSUB
40»Y = MY: GOSUB 40: NEXT
120 FOR Y - 1 TO MY:X = 1: GOSUB
40: X - MX: GOSUB 40: NEXT
130 NORMAL
140 N - 4«L « 4iR - OiC - 3i 60SUB
80
170 FOR I - 1 TO 4: READ 1X7.(1):
READ IYV.(I): NEXT
180 DATA 1,0,-1,0,0,1,0,-1
185 HX « 2lHY - 2iTX - 2: TY » 2:D
- li GOSUB 50
190 GOSUB 70:X * HX:Y = HY:S* =»
•'»••: V » D: GOSUB 40
191
200
210
220
300
310
320
330
340
350
360
370
380
y
D: GOSUB 60: HX
X:HY
IF N > O THEN N - N - 1: GOTO
300
K - S7.(TX,TY):X - TX:Y - TYiS
t m - «|V - O: GOSUB 40
GOSUB 60: TX = X: TV
IF S7.(HX,HY) - O GOTO 190
IF SX(HX,HY) = 6 THEN PRINT
CHR* (7>;:L = L «■ 4:N - 4iR
= R + 1 : GOSUB 50: GOSUB SO
: GOTO 190
F-UR I = 1 TO 10: PRINT CHR*
(7):: NEXT iC • C - ll GOSUB
80: IF C THEN GOTO S)
HOME : INPUT "OUER JOGAR NOV
AMENTE (S/N) ? ;A*: IF LEFT*
(A*,l> = "S" THEN GOTO 5
PRINT "ADEUS ! ! " : END
K - S7.(TX,TY)iX - TX:Y - TY:S
» - V »
GOSUB 40: GOSUB 60: K - S7. ( X ,
Y ) : IF I, 5 AND K > GOTO
360
X - RX:Y = RY«S* - " " : V - 0:
GOSUB 40
N - L:D = It GOTO 185
m.
64
MICRO SISTEMAS. janeiro/84
Introducdo
automdtica
do papel
A Remtronic 2000
e uraa maquina de
escrever eletrdnica
tao avancada, mas
tao avancada, que
consegue ser mais
simples que a sua maquina
de escrever.
Qomo e que pode?
E que a Remtronic 2000
e o resultado da mais
revolucionaria tecnologia
Remington, que veio tornar
o trabalho da secretaria
mais facil, pratico e rapido.
A Remtronic 2000 faz coisas
que voce nem imagina.
• Ela coloca
automaticamente o papel na
□ posicao inicial da
escrita.
• Faz o alinhamento
automatico
a margem direita.
• Gracas ao sistema
de "margarida"
Tobuiador decimal intercambiavel,
automatico voce pode trocar de
x» 4
tipos sem sujar as
maos e sem perder tempo.
• A Remtronic 2000 e a
linica que tern em seu
cartucho a fita de
impressao e a fita corretiva,
que ja vem embutida.
• Voce pode
escolher entre
4 formas de
escrita: normal,
negrito
Sublinhado n0 . r ? ia ^
simultdneo Sllblinhado ,
ou neg rito siiblinhado.
E o sublinhado e
simultaneo.
• Ela pode apagar
automaticamente uma linha
inteira.
• Seus dedos podem ser tao
ageis quanto
seu raciocinio,
que a
Remtronic
acompanha.
Nogrlto Ea 6 veloz
automatico COITIO um
xxxx
Teclade
r*p«ticdo
Tecla
polivalente
pensamento, pode
bater ate 17,5
caracteres por
segundo!
• Tern memoria de
elefante. Sabe de
cor todos os ajustes que
voce fixou. A Remtronic
2000 tern tanta novidade,
mas tanta novidade, que
nao da pra contar aqui.
Mas a melhor delas 6 que
agora ela tambem podera
ser usada como
terminal de
computador, com o
uso de um interface
apropriado.
Remtronic 2000.
Tao completa. Tao
simples.
A POLIVALENTE DA
REMINGTON.
. I. , ,
pJ Rcmincuon
^■P SEMPRE UMA NOVA IDEIA
Rebata a bo/a com precisao, mas nao se preocupe em ganhar um set. Neste jogo para
a linha TRS-80 (III) voce usara" a raquete para demolir os blocos a sua f rente
Bola demolidora
rebata essa!
Luiz Gonzaga de Alvarenga
Este 6 um jogo capaz de distrair tanto adultos quanto
cnancas por horas a fio. Nele, uma bola 6 rebatida
dentro de um campo com o objetivo de demolir uma
sdne de paiedes paralelas. A demolicao 6 efetuada bloco a
bloco, havendo um numero limitado de bolas para fazer isto.
Existem quatro niveis de dificuldade, do mais facil para o mais
dificil. A dificuldade 6 tanto maior pelo aumento do numero
de paredes (com o conseq'iiente aumento de blocos a serem
demolidos) quanto pela diminuicao do numero de bolas.
Ale'm disso, o tamanho da raquete 6 variavel e a velocidade da
bola nao € constante (cada bola tern uma velocidade
diferente).
Outro atrativo do jogo 6 que ele possui rotina de som. Esta
rotina i pr6pna para o BASIC disco, mas pode ser modificada .
para o BASIC residente. Para isto, basta trocar o conteudo da
linha 820 por:
820 Zl=127:POKE16526,235:POKE
165 27, Zl:Z=256*Zl+2 35
e gravar o programa em fita cassete.
Este programa foi publicado, original men te, na revista
norte-amencana 80 MICRO. Esta versao, no entanto, ale'm de
traduzida. foi modificada e aperfeicoada (a versfo original nao
possui, por exemplo, mais que um nivel de dificuldade).
O programa, embora escrito em BASIC, tern um bom
desempenho, inclusive no tocante a velocidade. As teclas que
controlam a raquete sao as setas para cima e para baixo. Se,
ap6s come9ado o jogo, ela nao aparecer, basta apertar a tecla
da seta para baixo.
Luiz Gonzaga de Alvarenga 6 te"cnico em Telecomunicaqoes, trabalhan-
do na Embratel em GoiSnia, onde reside.
r
CE NTRALD ATA
Cll t ijjnMttClM llil
SUPRIMENTO E COISA SERIA
• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada.
Discos Magneticos 5 Mb. 16 Mb. 80 Mb etc
Diskettes: 5 1/4. e 8 Polegadas — Simples e Dupia Face
ETIQUETASPIMACO-PIMATAB
Fita Magnfitica: 600. 1 ZOO e 2400 Pes
Fita CARBOFITAS p/lmpressoras: Globus M 200 — B 300/600
Fita p/lmpressoras: Elebra Oigilab. Diablo. Centronic etc
Cartucho Cobra 400
Pastas e FormulanosConlinuos
AV PRESIDENTE VARGAS. 482- GR 207 - TELS 10211 263-5876 - 253-1120 - RJ
66
MICRO SISTEMAS, janeiro/84
19 0EFINTA-YiCLS:G0SUB610
20 GOSU682C
30 CLSiFRINTs»269 "GRAU DE DIFICULDADEl
1 - NUITO FACIL
2 - HEDIO
5 - DIFICIL
4 - HUI10 DIFICIL-
40 E»«INKET»iIFE»-"THEN40
50 IFE» :"H"ORE f "l"0«E«-CHRt< 13.THEM4C
40 IFEM -1 IHENUS-0jZZ=IM9:G0T0110
70 IFE»'"2"THEMZZ«lM9jG0T0100
90 tFE»>"3"THENV8-0iZZ-l?lxG0T0110
9{ IFE«*"4"1HENZZ«191
:t>0 VS»9
110 CI SlAI I HRt, 1 91 ,:n» I. HR»( 12B .
120 RAMCKMltX=RND< 15 ■ ♦ ! 0:l=RNO< 10k«10iG'323iZ>GiH-liN«l
130 L-13427
1-40 RAMD0HiA~ftND<5.-3iB*RND<5>-3lIFA*00RB-0THEN140
150 GOSUB43C
.60 GOT 0560
170 X«x*Ast-Y«B
.30 UQSUB270
190 IFl 30*Y.-44THEN8=-Fi:.JJ = USR< 12>iG0T0170
200 If X i:<oTH£NA=-A:X= 126:JJ=USRU2>:GOT0170
210 IFX'.0IHENA--A« JJ»USR< 12> 1G0T0170
220 IFX>)5AMDF0INT«X.Yi°-lTHEN50C
Z',0 IFX<10AN0P0INT<X.Yt«-lTHENA--AUJ>USR<12>lG0T0170
."<(■ IFX :3AM0F-0INT«X.YX>-1THEN3SC
230 RESET. H-N> :SEI < X. r >:H-X:N--r
260 60T0170
270 R=PEEK< 144201
280 IFR^ORETURN
290 0»L
:aO IFR=8THENL«L-64i IFL<.15427L-L*64«JK-1
310 IFR lol 1»6M: IFl 16JIVI I />■.:. II • 1
320 P0KEL.149:IFJK=1THENJK-0»RETURN
S30 IFUS^9THENP0t.EL. 148| IF JK« 1 THENJK=0«RETURN
340 P0KEG.52:RETURN
350 IFZ?°1911HCN37e
360 PO-PO«ls IFPO'I2TH£N420£LSE380
3"0 fd-P(i«l :IFF-0=6IHFM':?(
380 RANDQHiX*RND< 1 O . » 25l t =RND< 1 • *25
390 FORYOclTOIOOOtNEXT
MOO PRINT«251.P0*1 :
410 RANDOM: A=RNO< 2 > 3: E< = RND< 2 > - 3: IFA-00RB*0 THEN410ELSE 170
420 FRIH1«256."B0LA& ESGOTAOAS" : :GOT0790
430 IFZr=191THENM50
•-I40 FQRO*tT014sFORT'30TOM5STEP2iGOT0460
450 F0R0'lT014iF0RT«30TO48STEP?
4o0 POKE .0«o4»T >♦ 15360. 191 iNEXTT.0
470 F0RR-lT0127iSET(R.45>iSET<R.2>«NEXT
480 F0RF=2T045lSET<127.F > jNEXT
490 RETURf
^00 A- -A
510 P»INT<X/2>*INT<Y/3>«64
520 FR1NI*F .B«: jJJ-USR. 12'
330 L0-L0»1
'.HO IFZZ- 191 ANDL 0-1 MOT HENCLS: GOT 0810
550 IFLti-112THENCLSiq0TO810
360 PRINT«48."BL0C0S FORA":
370 PRINT*1B6."B0LAK ':
380 FRIHT1231 .P0»1?
590 PRIH10119.LOI
630 GO TO 170
AID n u>:>,
620 PRIN1CHR«(23>
630 PRINI-JKK . ' « » » D E
640 F0P.X'lT06MsPRINT«f.k«X. '
S30 F0PZX«1T01000>NEXT
660 F0RX«-0TG127jSEltX.0>iSET<X.47>iNEXT
o70 F.-)RY = 0TO47jSET<0.Y>»S£T<127.Y>iNEXT
680 F'RIMT«218."INSTRUC0ES";
i9C PRINT*394."NESTE JOGO. JOGAOOR DEWE DEHOLIR COMPLETAME
N":
700 PRINT«»458."TE AS PAREOES OUE SEPARAM DA PARTE INTERNA
M"|
710 FRINI#S22."OUADRA. REBATENOO A BOLA DEHOLIDORA. NOS NIvE
IS";
720 PRINT<I5B6."1 E 2. EXISTEH 12 BOLAS DISPONIVEIS: JA ' NOS
NT :
730 FRINT06SO.-VEIS ~> E 4. HA SOHENTE 6 BOLAS DISPONIVEIS.
CO" I
740 PRIHT971M.-M0 TAHBEN AUNENTA NUHERO DE PAREDES. ELEvAN
00" i
750 PRINTH778."0 GRAU DE DIFICULOADE DO JOBO."»
760 PRIH1*940."<ENT£R " t tFORXMTOSOlMEXT
770 IFINKEVi»""THENPRINT«941." "| sF0RX=lT035jNEXT SG0T076
<
780 RETURN
790 FRINT*«44B."APERTE <ENTER. PARA NOVO JOGO":
BOO IFINKEYfOCHR«<13>THEN800ELSEP0'0tL0*0cG0T030
810 PRINT "PAR ABENS' VOCE LIHPOU COMPLETAMENTE A OUADRA i " .-GOT
0790
820 DEFUSR0>32OO0tZ*3200O
630 P.E>-.DBsIFB;OPOKEZ.BiZ*Z-»liGOT0830
840 Dm T A205 .127,10.62.5.211. 253 . 69 . 16 . 254 .62.4,211. 235 . 69 . 1 6
.254.37.20.239.201.-1
850 RETURN
HOLICAO • " *
" : :FORP' 1 T0M5s NEXT iNEXT
MICRO SISTEMAS, janeiro/84
m
ICRO PROCESS
COMPUTADORES LTDA.
• Microcomputadores
Microdigital, Prologica e Similares Apple.
• Aulas de Basic
• Monitores, Impressoras
• Programas de Contabilidade, aplicati vos, jogos, etc.
• Pacotes de programas para a area de Advogados,
Open Market Dentistas, Administracdo de Imoveis
• Programas para Engenharia, Arquitetura,
Controle de Construcoes, etc.
• Elaboracao de programas por encomenda.
• Personalizacao de programas para firmas e
prof issionais liberals.
• Jogo Odissey/Dactari.
• Manutencao e Transformacao de Televisores
• Revistas e Publicacoes Tecnicas
• Amplo Financiamento
• Despachamos por nossa conta via Varig.
TEL: 64-0468
Alameda Lorena, n° 1310 - CEP 01424
Sao Paulo
••• ESTACION AMENTO PARA CUENTES •••
VOCEQUERSER
COLABORADOR
DE MICRO SISTEMAS?
Para entrar nesse programa, e
so seguir as instrucoes:
• Escreva urn texto datilogra-
fado explicando qual a utiliza-
cao do seu programa, e junte
exemplos de aplicacao. Aten-
c3o: e imprescindi'vel que a lis-
tagem seja datilografada. Se
for possi'vel mande tambem,
junto com a listagem datilo-
grafada, uma fita cassete ou
disquete com o programa;
• Se for artigo, use a maqui-
na de escrever em espaco dois
e meio, com setenta toques
por linha e trinta linhas por fo-
Iha. Caso haja necessidade de
desenhos e ilustracdes, deta-
Iheos o max i mo possi'vel;
• Releia atentamente sua
colaboracao para micros ou
calculadora, veja se n3o falta
nenhuma informacSo (qual
equipamento, em que configu-
racSo etc.), e remeta-a, em
duas vias, para a equipe de
MICRO SISTEMAS analisar;
• N3o se esqueca de mandar
um breve curn'culo, seu nome,
telefone e endereco complete
Envie para REDAQAO -
MICRO SISTEMAS, Rio ou
Sao Paulo: Rua Visconde Sil-
va, 25, Botafogo, CEP 22281,
Rio de Janeiro — RJ; Alame-
da Gabriel Monteiro da Silva,
1227, Jardim Paulistano, CEP
01441, S3o Paulo - SP.
_ VMicro
Slstemas
IhFbRMfrnCfl
-3^
— Cursos de programagao com
APOSTILA PROPRIA e AU-
LAS PRATICAS em diversos
MICROCOMPUTADORES
— Todas as principals marcas
de MICROCOMPUTADORES
pelo menor preco com credi-
to direto em ate 24 MESES
— Programas prontos ou por
encomendas tanto de jogos
quanto comerciais
MICROCENTER INFORMATICA LTDA.
Rua londe de Bonfim, 229 • Lojas 320 e
312 Galena Cinema III ■ Tel.. 228-0593
20520 - Tijuca - Rio de Janeiro - RJ
INSTITUTO DE TECNOLOGIA ORT
CENTRO DE INFORMATICA
CURSOS
LINHA IBM (Apoio Marcodata)
OS/VS1 - VSE - VM/CMS - VSAM
CICS - DL/1- COBOL: TECNICAS E
OTIMIZACAO
MICROINFORMATICA
BASIC - ASSEMBLER - PASCAL
LOGO-CP/M - VISICALC
dBASE II -WORDSTAR
FORMACAO DE PROGRAMADORES
DURACAO: 9 MESES
CPD-ORT: IBM 4341 COM TERMINAIS
LABORATORY DE MICROS
TREINAMENTO IN HOUSE
SOLICITE INFORMAgOES E
FOLHETOS EXPLICATIVOS
RUA DONA MARIANA - 213 - BOTAFOGO
TE LS. : 226-31 92 - 246-9423 u
iS
Huiirso 1
• O Instituto Psicodinamico de Idiomas esta
oferecendo urn curso intensivo de BASIC para
principiantes. O curso abrange os ni'veis I e II,
com duracao de duas semanas (carga horaria
de 1 1 horas semanais). Os micros utilizados
sao CP-500 e os da linha Sinclair. Maiores In-
formacoes na Rua Martiniano de Carvalho,
200, tel.: 284-3912, Sao Paulo, SP.
• Tecnicas de Organizacao & Metodos. Me-
todologia para Desenvolvimento e Documen-
tacao de Sistemas, Elaboragao e Analise de
Formularios, entre outros, s5o os cursos que a
Didata esta oferecendo. Para maiores informa-
coes telefone: (011) 34-3195, Sao Paulo, SP.
• A A DP Systems Empresa de Computacao
esta oferecendo diversos cursos para o mes de
Janeiro: Basico/Logica Estruturada; COBOL
A. N. S.; DOS/VS; Modulo Alternative As-
sembler; Basico Operacao; OCL/3; Digitacao,
BASIC CP/M. A ADP Systems oferece hora-
rios pela manna, tarde e noite e tambem nos
fins de semana. O enderego da ADP e Rua
Santa Isabel, 305. tel.: (011) 223-7511, Sao
Paulo, SP.
• Introducao aos Microcomputadores e Pro-
gramacao BASIC sao os dois cursos que a Da
tamicro Informatica esta" oferecendo. Estes
cursos tern turmas e horarios especiais tam-
bem para criancas de 8 a 13 anos e jovens de
14 a 18 anos. Informagoes e inscricoes Centro
Cultural Candido Mendes, Rua Joana Angeli-
ca, 63, Ipanema, tel.: 267-7098, Rio de Ja-
neiro, RJ.
e A Mikro Informatica aceita inscricoes para
os seguintes cursos: Informatica para Jovens;
Operacao e Programacao de Microcomputado-
res — Linguagem BASIC para Criancas. Varias
opcoes de horario. Informagoes na Av. Afon-
so Pena, 952, si. 627, tel.: (031) 222-3035,
Belo Horizonte, MG.
• A Microrei Informatica realizara, nas fe-
rias de Janeiro e fevereiro, cursos intensivos
com 12 horas de aula sobre ProgramagSo BA-
SIC Aplicada aos Micros e que nao exigem co-
nhecimentos anteriores de microprogramacao.
Sao cursos essencialmente praticos e apostila-
dos. Hora>ios:9:00, 14:00 e 19:30h. Informa-
coes na Rua Pinheiros, 812, tel.: 881-0022,
Sao Paulo, SP.
• A UFRJ estci oferecendo cursos sobre as
seguintes linguagens: C, Pascal, Assembler,
BASIC, FORTRAN, ALGOL, alem de urn
curso de Banco de Dados. Para maiores in-
formacoes, dirija-se a Secretaria de Cursos, si.
C-1010 do Niicleo de Computacao Eletronica
no bloco C da Cidade Universita>ia. Tel.: 290-
3212, r: 224, Rio de Janeiro. RJ.
• A FUNDEP e a Universidade Federal de
Minas Gerais estao oferecendo os seguintes
cursos para janeiro/fevereiro: Curso BASIC,
Curso CP/M, Curso FORTRAN, Curso Pascal,
Curso VisiCalc, Programacao de Computado-
res COBOL, Curso de Introducao a Programa-
cao de Computadores. Informacoes na Av.
Antonio Carlos, 6627, Pampulha, tel.: 441-
4980, Belo Horizonte, MG.
• Manutencao do Microcomputador Pessoal
DGT-100/1000, Projeto de Interfaces para Mi-
crocomputadores, Microprocessador 8086/
8088, Controle de Processos sao os cursos que
estao sendo oferecidos pelo Centro Brasileiro
de Informatica, Av. Passos, 115, si. 215, tel.:
(021) 233-1123, Rio de Janeiro, RJ.
68
• A MICRO'S Processamento de Dados pro-
move regularmente cursos de programacao
BASIC e COBOL. Para o curso BASIC sao uti-
lizados dois microcomputadores Dismac e um
NE-Z8000, com horario individual para trei-
namento. As turmas sao compostas de, no mi-
ximo, 20 alunos e todo material didatico e
fornecido pelo curso. Maiores informacoes
na Rua Duque de Caxias. 450, Edif. Chams,
sis. 702 e 703, tel.: (034) 235-6965, Uberlan-
dia, MG.
• A Data Record Cursos de Processamento
de Dados esta promovendo cursos de BASIC
e COBOL. O primeiro de 50 horas e o segun-
do de 120 horas. As turmas sao de, no maxi-
mo. dez alunos, com 60% de aulas praticas.
Cursos especiais de ferias pela manna, tarde e
noite e inclusive nos finsde semana. Informa-
coes na Av. Santo Amaro, 5450, Brooklin,
tel.: (01 1 ) 543-9937, Sao Paulo, SP.
• A Dutra Informatica oferece varios cursos
de Informatica, entre eles: Introducao as lin-
guagens BASIC, COBOL, FORTRAN, Assem-
bler, RPG, Pascal; Sistemas e Computacao pa-
ra nao-especialistas; Introducao ao Hardware
de Microprocessadores, etc. A Dutra tambem
oferece palestra e seminarios. Maiores infor-
magoes na Rua 1, n° 444, Rio Claro, Sao
Paulo, tel.: (0195) 34-8922, SP.
• A Pr6 Eletronica oferece cursos e pales-
tras sobre Microinformatica, Linguagem BA-
SIC, Sistemas Operacionais e Aplicativos (Vi-
siCalc, Magic, Window, Profile, etc.). As vagas
sao limitadas por cursos e o material did3tico
6 oferecido gratuitamente. Informagoes na
Rua Santa Efigenia, 568, tel.: 221-9055. Sao
Paulo, SP.
• A CompBel promove os cursos: Introdu-
gao a Microcomputadores para estudantes de
nivel colegial, BASIC I e BASIC II e VisiCalc-
Plus com tracado de graficos. Informacoes na
Rua Gregbrio Paes de Almeida, 62, Vila Mada-
lena, tel.: (01 1 ) 65-9857. Sao Paulo. SP.
• A Benny Feira Permanente de Microcom-
putadores esta oferecendo cursos de ferias pa-
ra criancas. Os cursos de BASIC tern um livro
especial mente elaborado para criangas que
aprenderao brincando e se divertindo com os
micros, os professores sao treinados para es-
se fim. O curso ter£ a duracao de dez dias e o
prego e de Cr$ 45 mil, ja com o material di-
datico incluido. Maiores informagoes na Rua
Domingos de Moraes, 407, tel.: (011) 570-
1 555, Vila Mariana, Sao Paulo, SP.
SEMINARIOS
• A Execom Desenvolvimento Empresarial
realiza em sua sede, no Rio de Janeiro, se-
minarios sobre aplicagoes de microcompu-
tadores nas areas de Finangas, Planejamento.
Marketing, Produgao, Pessoal, entre outras.
Estes seminarios. diurno e noturno, duram 16
horas e oferecem o uso de um micro (compa-
ti'vel com o Apple) para cada participante. As
turmas tern, no m^ximo, nove pessoas, com
aplicagoes dos mais famosos softwares basicos
para micros. Maiores informagoes pelos tele-
fones: (021) 252-4946 e 252-3418. Rua do
Ouvidor, 121/219 and., Rio de Janeiro, RJ.
• Para informar ao leitor sobre os cursos que
estao sendo oferecidos, a revista recolhe in-
formagoes em dlversas instituig5es ou as rece-
be pelo correio Portanto, na*o nos responsabi-
lizamos por quaisquer alteragdes posterior
mente efetuadas por estas instituigfles nos
programas ou pregos
MICRO SISTEMAS, janeiro/84
\
O que voce acha de pilotar um PC 1500
numa emocionante corrida de Fdrmula 1?
Grcuito
de Formula 1
Daniel JosS Burd
Neste circuito voce ser£ o piloto,
determinard o numero de voltas
da corrida, a direcao, o sentido e
a velocidade de seu carro. Para engatar a
marcha lenta (isto e\ o carro andara"
apenas uma coluna ou quadradinho por
vez), tecle z; para engatar a marcha
mddia (isto e\ o carro andar2 duas
colunas por vez), tecle x; e, finalmente,
para engatar a marcha rapida (isto 6, o
carro andara" tres quadradinhos por
vez), tecle c.
Para que seu carro ande para frente,
tecle e mantenha o teclado 6; para andar
para tras, para cima e para baixo, tecle o
4, o 8 e o 2, respectivamente.
Caso voce nao seja um is no volante e
venha a bater nas grades de protecao,
sera obrigado a comecar novamente a
volta; por tan to, cuidado!
Assim que tiver completado a ultima
volta, seu tempo apareceia no visor.
Daniel Jose" Burd esta" cursando o terceiro ano
do 2° grau do Colegio I. L. Peretz. Possui um
PC 1500 da Sharp e um NE-Z8000, nos qua is
desenvolve programas.
5: REM CORRIDA DE
FORMULA 1
6: REM NA MATRIZ
TC85) F1CARA
DESENHO DA PI
STA
10:DIf1 T<85>
20:WA1T 100:PR1NT
"A CORRIDA UAI
COHECAR'
30: INPUT "QUANTAS
VJOLTAS?";0: IF
0C1PR1NT 'QUE
GRAC1NHA"
40: REM DESENHO DA
PISTA
45.CLS
50: DATA 23, 17,29,
9, 11, 10, 26, 18,
22,20,23, 17,29
, 5,5,5, 125,69,
69, 81, 81, 81,95
. 80, 88
60: DATA 76, 102, 11
5, 89, 77, 69, 69,
69
65: DATA 85, 81,81,
95, 80, 86, 82, 90
, 74, 106, 74, 90,
90, 90,66, 126,0
,0
70: DATA 67, 68, 72,
95,65, 125,5,29
. 17, 17,23,23
80: POR 1=0TO 24
90: READ T(I)
Corrida de Fdrmula 1
100: NEXT I
110: POR 1=25T0 33
120: READ T<1)
130: NEXT 1
140: FOR I=57T0 74
150: READ TCI)
160: NEXT 1
170: FOR 1=75T0 85
180:READ T<1)
190:NEXT 1
200:FOR 1=34T0 56
210:T(1)=85
220: NEXT I
225:0=1
230: WAIT 0:FOR P=0
TO 85
240:GCURSOR P:
GPR1NT TCP)
250: NEXT P
260:REH 0=NUMERO
DE UOLTAS
270: CURSOR 22:
PRINT
280: REM P=P0S1CA0
DO CARRO: D=AL'
TURA DO CARRO:
K=NUMERO DE T
ROHBADAS
290:P=0:D=8:<=0
300: REM SUBR0T1NA
4000 CONTEM
CRONOMETRO
310:FOR I=1T0 2
320: IF P>85LET 0=0
-IX IF O=0PAUSE
"CHEGADA":
GOSUB 4000 :H=F
-6: IF O=0PRINT
"SEGUNDOS";H
325: IF O=0END
330: IF P>85LET P=0
: CURSOR 22:
PRINT
340: REM A$ CONTER
A A UEL0C10ADE
E DIRECAO
350:A$ = — :X=0:UA1T
2
360: REM B E A REU
N1A0 ENTRE A P
I STA E CARRO
3?0:A=T<P):B=AOR D
380:GCURSOR P:
GPRINT B
390:A*=INKEY«
400: IF A»O""G0T0
460
410:GCURSOR P:
GPRINT A
420: A»=INKEY$
430: IF A»O""G0T0
460
440: NEXT 1
450: GOTO 590
454: REM A SEGU1R
SERAO EFETUADA
S AS nUDANCAS
DE UELOCIDADE
E DIRECAO
455: REH Z=UEL.LEN
TA X=UEL. MEDIA
C=UEL. RAPIDA
460:
GCURSOR P:
610:WA1T 100. BEEP
GPRINT A
10, 250, 20.K=K+
465.
IF A*="X"GOTO
l: PRINT "QUE E
480
RRO ! ! !", K:LET
470.
GOTO 490
P=0:O=8
480
0=2. T=2
615:UAIT 0:CLS
490
IF A$="C"GOTO
620: POR Q=0TO 85
510
638: GCURSOR Q:
500
GOTO 520
GPRINT T<Q)
510
U-4:T«r3
640. NEXT Q
515
GOTO 540
650. CURSOR 22;
520
IF AiO'Z'GOTO
PRINT 0:GOTO 3
540
10
530
0=1: T=0
4000: REM AQUI FJ
540
IF A»="8'LET D
CARA CRONO
= (1NT ((DH)/2
METRO
))/0:GOTO 590
4001: WAIT
550
IF A*="2"LET D
4010:T*=STR* TjnE
=(2*D)*0: IF D>
4020:O=C1NT (TIME
64LET 0=64:
))
GOTO 590
4030:R$=STR$ U
560
IF A»="6"LET P
4040;O»=RIGHT$ (B
=P+1+T:G0T0 59
», 1 )
4050: J=((UAL T*)-
570
IF A*= M 4"LET P
O)*13000
=P-1-T: IF P<1
4060:O*=STR» J
LET P=64:G0T0
4065:O*=(RIGHT$ (
590
D*. 2)):A=0AL
580
GOTO 440
G*
585
REM A=1NTERSE
4070:P=OAL <(UAL
CCAO ENTRE C
C«)*3600)+<
ARRO E A PISTA
UAL CLEFT* (
590
IF P>85G0T0 32
D«, 2))>*68*A
4080: RETURN
595
A=DAND TCP)
600
IF A=0GOTO 310
MICRO SISTEMAS, janeiro/84
69
Engane o tec/ado de seu micro compati'vel com o Apple e faca-o dancar
con forme a sua musica. Aqui, um utilitario "de bandeja" para voce
Um teclado
a moda da casa
Carlos Alberto Diz
Com um minimo de trabalho, e gracas ao utilitino for-
necido neste artigo, voce podera" redefimr o teclado de
seu micro (se ele for compati'vel com o Apple). Para
que? Bom, antes de tudo para brincar, que e" a principal moti-
vacao de um bom fugador de micros. Mas como sempre acon-
tece, de tantas brincadeiras, acaba surgindo algo de utd.
Por exemplo: se voce nao tiver um teclado numenco, pode
si mulai um, fazendo com que as teclas R, T, Y, F, G, H, V,
B, N e a barra de espacps gerem os di'gitos 7, 8, 9, 4, 5, 6, 1,
2, 3 e 0, respectivamente. Colocando umas etiquetas nas te-
clas, voce teii um teclado nume'nco.
Voce tambdm pode transformar o lay-out do tradicional te-
clado "QWERTY" (das seis primeuas teclas da segunda fila,
comecando de cima) em algo mais prftico e eficiente, como
sugeriu Dvorak ao criar o teclado que leva seu nome.
Infelizmente, o teclado Dvorak foi criado para ser usado
com o idioma ingles, e duvido que proporcionassc a mesma
eficiencia quando usado com o portugues. Mas isto nao impede
que voce micie um estudo estatistico sobre a freqiiencia de
ocorrencia das, Ictras do alfabeto na lingua portuguesa para,
quern sabe um dia, lancar no mercado o teclado Dvorak-
Tupiniquim~.
Mas voltando ao nosso assunto, uma grande aphcacao e,
sem duvida, a redefinicao de certas teclas para que, em lugar de
caracteres individuals, gerem macroinstrucres. Assim, por
exemplo, ao teclar CTRL C, aparecerd a macro CATALOG;
ou, ao teclar, CTRL L, apareceri a macro LIST, e assim por
diante. Enfim, existem varias aplicacoes para um teclado rede-
finido, e o limite e a sua lmaginacao.
O MAPA DA MINA
Depots de deixar todos com agua na boca, sinto a tentacao
de formular a fatidica frase: "... detalhes no pr6ximo nume-
ro...", mas como acho que seria dificil garantir minha in col u-
midade f rente a um bando de leitores enfurecidos, passo a
contar o segredo em seguida.
O Apple, esta maquina maravilhosa (satisfeito, Freitas?!) -
e com ele todos os Apple compati'veis — , usa, para permitir a
entrada de mformacao via teclado, uma rotina chamada
KEY IN, rotina csta que reside na ROM, mais precisamente a
partir do endereco SFD1B. Ela inicia, ao ser pressionada uma
tecla, uma serie de processos consecutivos a cargo de varias
outras rotinas da ROM, terminando na aceitacao e reconheci-
mento da tecla ativada e na geracao do carater correspondente.
Para redefirur o teclado e\ portanto, suficiente alterar esta
rotina para que, seguindo instrucoes previamente fornecidas,
ela transforme o carater normalmente gerado por uma dada
tecla no carater que desejamos, permitindo que as demais ro-
tinas que seguem nunca percebam a modificacao feita no te-
clado. Porem, nao 6 possivel alterar diretamente instrucoes que
se encontram na ROM, pois esta membria (Read Only Memo-
ry) nao aceita input.
Fucando na memoria do computador, descobre-se que exis-
te uma area na RAM, mais exatamente as posicoes KSWL e
KSWH ($0038 e $0039), que normalmente contdm o endere-
co de entrada de KEYIN. Ou seja, para chamar KEYIN, o sis-
tema proem a, nestas posicoes. o endereco de entrada desta ro-
tina. Como KSWL e KSWH sao enderecos da RAM, podem ser
alterados por algo tao elementar como um POKE, existindo,
poiem. maneiras infinitamente mais complexas de se fazer a
mesma coisa, como os programadores de Assembler gostam de
nos ensinar.
Se escrevermos uma rotina em linguagem de maquina
para substituir KEYIN que cumpra com os nossos requisitos,
e colocarmos o endere90 de inicio desta coluna em KSWL/H,
no lugar do endereco de inicio de KEYIN, entao o computa-
dor nunca descobrira que o enganamos, e usara nossa rotina
como se fosse a pr6pna KEYIN.
Resumindo, precisamos de uma rotina substitutiva de
KEYIN que:
• compare o carater correspondente a uma tecla pressionada
com uma dada tabela referencial para ver qual o carater (ou
macroinstru9ao) que substitui o carater origmal da tecla, e
• substitua o novo carater (ou macromstrucao) pelo carater
original e volte as rotinas normais como se nada tivesse acon-
tecido.
Isto feito, precisamos de um programa para criar uma tabe-
la de redefinicao do teclado e, finalmente, de um programa
que implemente esta loucura toda.
A rotina substitutiva tern que ser em linguagem de maqui-
na (que horror!!), e pode ser colocada numa area da RAM mui-
70
MICRO SISTEMAS. janeiro/84
15
20
30
40
80
55
60
70
1 00
: i o
1 20
HIMEM
HOMF
PRINT
PRINT
PRINT
PRINT
P R I NT
PRINT
TOR I
HOME
FOR I -
POKE z:
3B1H
TAE( 4)
TAB' 6 ' '
TAB( 6)
TAB< «>'
T"AE( t )
TAB( 6 ■ "
1 TO 2000 NEXT
READ 21 22 Zl
TO 9 3 ron :i
♦ I . POKE Zl ♦
•~HRI
DEFINF
PP.OCRAMA DE CRIACAO DE
TABELAS DE RE -DEF IN I COE S
DAS TECLAS DO TECLADO
I
♦ 126 NEXT
ATRIBUICAO
PRINT
THEN
MORMAL
130 Zl ■ "HRt (0) D*
140 COTC 5 0C
1000 HOME INVERSE TRIHT "
DE CARACTERES "; NORMAL
1020 PRINT "TCLE A TECLA QUE VOCE QUER REDEFINI
R" PRINT "E DEPOIS O CARACTER A SER ATRIBUIDD A
PRINT "ESTA TECLA (PARA SAIR TECLE ' 9 ' » "
1030 INVERSE PRINT "TECLA'. HTAB 10
ARACTER" NORMAL
1040 POKE 34.5
1050 HOME
10 60 GET Al IF At - "9" THEN RETURN
1073 Al ■ A* - Z*
1079 IF ASC <AJ) < 27 AND ASC <A») >
NVERSE PRINT CHR» ' ASC (Al) ♦ 44).
HTAE 10 GOTO 1090
1080 PRINT A« HTAB 1
1090 GET Bl IF CS » "9" THEN 1040
1100 B« ■ Bi * Z<
1110 P R : NT B I
1120 POKE Zl . ASC (Al). ASC <BI>
1130 GOTO 10 60
'.4 CO GOTO 5000
2 00 HOME INVERSE PRINT "
DE MACROS NORMAL
2020 PRINT "TECLE A TECLA QUE VOCE QUER REDEFINI
R" PRINT "DEPOIS INGRESSE A MACRO A SER ATR I BU I D
A" PRINT "'•ERMINE COM '»• (PARA SAIR TECLE • • • ) "
IC3" INVERSE PRINT "TECLA". HTAB 10 PRINT "M
ACRO" NORMAL
2040 POKE 34 . 5
2050 HOME
206C C ■ CET A» IF A» • "9" THEN 2180
2070 A* « At . Zl
2075 IF ASC (Al) > AND ASC (A»> < 27 THEN I
NVERSE PRINT CHRi ! ASC (A»> * 44) NORMAL
HTAE 10 GOTO 2090
2080 PRINT AJ. HTAB 10
2090 POKE Zl ♦ ASC (AI).Z3
2100 GET BS IF Bl ■ "9" AND C - THEN 2060
2110 IF Bl « "■"• THEN 21 50
2 111 Qt > Bi
2112 IF Bt ■ CHRI '13) THEN Ql . "•"
2115 PRINT QJ.
2120 POKE Z2 ♦ Z3. ASC (Bl) . 128
2 130 C» » HI ■ C - 1
2140 Z3 * Z3 ♦ 1 GOTO 2 100
2 150 POKE Z2 ♦ Z.I - I. ASC (C«»
2 155 PRINT
2160 IF Z3 < 128 THEN 2060
2170 PRINT "A TAHELA DE MACROS ESTA' CHEIA II"
2 180 RETURN
30 00 HOME
3010 PRINT "INDIOUE QUAL NOME DEVE SER ATRIEUIDO
A" INPUT "A TABELA QUE ACABA DE SER CR I ADA "A»
3020 IF Al - "" OR Al ■ " " THEN PRINT "NOME IN
VAL1DO II": GOTO 30 10
3030 PRINT Dl ."REAVE " A 1 ; " . A I 95 . L I 1 " rP. INT
D!
3040 HOME PRINT "A TABELA CRIADA FOI CRAVADA S
OB O NOME PRINT A I
3060 PRINT PRINT PRINT " PARA IMPLEMENTAR
A TABELA RODE O PRINT "PROGRAMA 'IMPLEMENTA
I 2
ATRIBUICAO
30 7 END
4900 STOP
5000 POKE 34.1
5010 PRINT "1
50 20 PRINT "2
50 3 PRINT "3
5035 PRINT "4
50 3 7 PRINT "3
5 40 GET A I
5 45 IF A I < " 1 " OR A I > "5" THEN 5 40
5050 ON VAL (Al) COSUB 10 0.2000.1000.2000.3000
50 60 GOTO 50 00
10000 DATA 38 144.38239.1
20000 GET Al
20010 PRINT ASC (Al) GOTO 20000
HOME PRINT PRINT
ATRIBUIR CARACTERES"
ATRIBUIR MACROS"
ACRESCENTAR /CORRICIR CARACTERE5"
ACRESCENTAR/CORRICIR MACROS"
GRAVAR TABELA DE R EDEF I N I COE '
Figura 1
-.0
1 10
120
1 30
140
150
160
1 70
180
190
4"
200
210
REM •'
REM »
REM •
REM •
REM »l
FOR K .
READ X
POKE K
NEXT
PRINT
COLOCA
CARRECA ROTINA EM LIMGUAGEM
MAQUINA QUE SUBSTITUI KEYIN
7 68 TO 8 52
CHRI (4>."RSAVE KE Y I NR EDE F . A 1 3 . LI 5
PRINT CHRI (4). "RUN DEFINE"
DATA 24. 144. 59. 142. 94. 149. 174, 95. 149. 208. 31
.72.230.78.208.2.230,79.173.0.192.16.245.44.16.19
2. 41. 127. 170. 104. 145. 40. 189. 0.149. 16. 4. 174. 9<!
220 DATA 1 49 . 96 . 1 70 . 1 89 . 95 . 1 49 . 1 6 . 6 . 232 . • 42 . 95 .
149. 16. 240. 9. 128.162. 0.142. 95. 149. 240. 231. 169. 149
.133.116.149.0,141.95.149.133.115.169.3.140.2,133
.54132,5732,234.3.96
Figura 2
to usada pelos programadores desta Unguagem para guardar
sub-rotinas de usuario, utilit&ios etc., ou seja, a pigina 3 da
mem6na. mais prccisamente a partir de S0300.
Como nem todos tern um editor Assembler ou familiandade
com a operac,ao do monitor, a figura 1 traz a listagem de um
programa em BASIC (COLOCA) que se encarrega de instalai
a rotina em seu devido lugar. copid-la para o disco sob a forma
de um arquivo binario (KEYINREDEF) e chamar e rodar um
outro programa (DEFINE, figura 2) que serve para cnar uma
tabela de redefinitjoes.
Na figura 3 temos a listagem de um ultimo programa, tam-
bem em BASIC (IMPLEMENTA), que, como diz o nome,im-
:-::mem 38 144
2
HOME
4
•
PRINT "• -MFLEMENTA
4
PRINT
10
PRINT "ESTE PROGRAMA CARREGA E INICIALIZA"
20
PRINT "A ROTINA DE REDEF1NICAO DO TECLADO"
30
PRINT
40
Dl ■ CHRI (41
50
INPUT "INDIOUE O NOME DA TABELA A SER USADA "
A
40
PRINT Dl , "BLOAD " Al
70
PRIN T Di."BRUN KEYINREDEF"
Figura 3
MICRO SISTEMAS. janeiro/84
plementa uma tabela de redefirusoes cnada por DEFINE. A
partir destes ties programas, tudo que voce precisa fazer 6:
1) digitar o programa COLOCA e guarda-lo (SAVE COLOCA);
2) digitar o programa DEFINE e guarda-lo (SAVE DEFINE);
3) digitar o programa INPLEMENTA e guarda-lo (SAVE IM-
PLEMENTA);
4) respondcr as perguntas que aparecerao na tela e fornecer um
nome a tabela de redefini^oes cnada, conforme o programa
perguntara;
5) rodar IMPLEMENTA (RUN IMPLEMENTA), indicar o no-
me da tabela a ser implementada, e pronto: seu teclado nao se-
ra mais o mesmo!
Um RESET, em qualqucr momento, devolvera ao seu com-
putador o teclado original, mas consulte seu manual antes de
dar um RESET, pois qualquer falha podera prejudicar o pro-
grama presente na RAM.
Voce pode definn uma ou mais tabelas usando DEFINE -
dando um nome diferente a cada uma delas - e implementar
teclados diferentes scgundo suas necessidades. Se voce incluir
cm seu programa HELLO uma ultima linha que diga PRINT
CHRS(4) ;"RUN IMPLEMENTA", todas as vezes que carre-
gar o DOS sera solicitado a lmciar o nome da tabela de redefi-
nic/io que quiser implementar.
Caso voce queiia ficar com o velho e pouco original teclado,
responda CTRL C a esta pergunta, ou simplesmente RESET
(se seu Applesoft nao for do tipo residente em ROM, consulte
seu manual antes de dar um RESET, pois corre o nsco de en-
trar para o monitor sem saber como voltar).
Nao se esquec^ de anotar o que cada tabela faz. e marcar as
teclas usadas para gerar macroinstru96es (use etiquetas) com a
macro que cada uma gera. Divuta-se! ! ■
Carlos Alberto Diz 6 formado em Engenharia Eletronica pela Universi-
dade de Dundee, Escdcia, e possui Mestrado em AdministraQao de Em-
presas pelo INSEAD — Institute Europeu de AdministraQao de Empre-
sas, Fontainebleau, Franqa. Atualmente 6 sdcio-gerente da Compusys-
terns do Rio de Janeiro, uma system-house dedicada a consultoria in-
formitica e confecgao de software sob medida.
71
Neste j'ogo para os micros compati'veis com o TRS-80 Modelo I, voce
tera que ser muito r£pido para combater o ataque das naves inimigas
Resista ao ataque
Paulo Prado Junior
Neste programa, voce deve abater
o maior numero possi'vel de na-
ves inimigas que se deslocam ra-
pidamente em direcao a sua drea de pro-
tecao. Mas na"o se preocupe : para se de-
fender voce tern canhdes e municao su-
ficientes.
A nave mimiga desloca-sc para a di-
reita ou esquerda procurando descer gra-
dativamente para podcr ataca-lo. Os
raios lancados por ela somente serao dis-
parados apos certa altura.
Se voce qurser movimentar o seu ca-
nhao para a direita use " > ", para a es-
querda " < " e para disparar use D.
ataque e feito por dez naves ldenti-
cas e, para cada naveabatida, outra volta
a atacar no mesmo ponto em que a ante-
rior foi derrubada.
Se voce for um bom combatente e
conseguir destruir todas as naves, ganha-
ra um canhao e mais 60 tiros de muni-
c§o para se defender de um novo ata-
que. Do contrdno, tenha muito cuidado,
pois, para cada canhao destruido, a nave
aproxima-se mais da area defendida e se
uma das naves chegar ao solo, voce per-
de automaticamente um canhao.
Paulo Prado Junior exerce a lungSo de progra-
mador no Rodovidrio Caqula S.A., atuando
em implantaqoes de sistemas on-line, ale"m de
ser sdcio-proprieta'rio da MICRO'S Processa-
men to de Dados Ltda., empresa dedicada ao
desenvolvimento de cursos e sistemas aplicati-
vos para microcomputadores.
Resistencia ao ataque
1 REM ***** *****
2 REM ** MICRO'S - PROCESSAMENTO DE DADOS * +
3 REM ** CURSOS - BASIC , COBOL E FuRFRAN **
3 REM ** FONE - (034) 235-6965 UBERLANBIA-MG
5 REM ***** — -————-—■——---—— *****
6 REM ** PROGRAMA : RESISTENCIA AO ATAQUE (JOGO) **
7 REM ** AUTOR : PAULO PRADO JUNIOR **
8 REM ***** *****
9 REM
10 CLEAR 1500:DEFINT A-Z: G=16192: C-31 T-150: CLS: GOSUB 300
20 A= 15361
SO POKE G, 186: POKE G+1,181
40 POKE A, 128: POKE A+l, 128: POKE A- 1,128
50 A=A+RND<10>-4: IF A< 15361 : A=15361 : ELSE: IF A>16192 GOTO 250
60 POKE A, 188: POKE A+l, 134: POKE A- 1,13/
70 Z=<A-15360) /64+1: IF Z<5:G0T0 110: ELSE: IF RND ( 1 1 >< 1 1 : GOTO 110
80 0=0: FOR W=Z TC12: V=V+1 : POKE A+V*64, 173: NEXT W
90 0=0:F0R W=ZT012:V=V+i:P0KE A+V*64, 128: NEXT W
100 IF A+( (14-Z)*64)=G:G0T0 250
110 POKE A, 143: POKE A+l, 164: POKE A-1,152
120 Y*=INKEY*
130 IF Y*="D":T=T-l: IF T<l:C=l:G0T0 250: ELSE: FOR W=1T013 STEP 2:
POKE G-W*64, 170: IF G,-w*64=A OR G- ( W-l ) *64=A: POKE G-W*64, 123: GOTO
170: ELSE: POKE G-W*64, 128: NEXT W:G0T0 40
140 IF Y«=".":IF GO16250:P0KE G, 128: POKE G+l , 128: G=G+4: POKE G, 1
86: POKE G+l, 181: GOTO 40
IF Y*=",":IF G>=16197:P0KE G,123:P0KE G+l , 128: G=G-4: POKE G, 1
86 ■■ POKE G+ 1 , 1 3 1 : GOTO 40
SOTO 40
170 R=0:KuR W-ZT014
180 POKE A+R,188:P0KE A-l+R, 137: POKE A+l+R, 134: GOSUB 240
190 POKE A+R,19i:P0KE A-l+R, 140: POKE A+l+R, 140: GOSUB 240
200 POKE A+R,143:P0KE A-l+R, 152: POKE A+l+R, 164: GOSUB 240
210 POKE A+R,123:P0KE A-l+R, 128: POKE A+l+R, 128
220 R=R+64:NEXT W
230 N=N+i: J=J+l: IF J=10: J=0: T=T+60: C=C+1 : GOSUB 300: GOTO 20: ELSE:
80SUB 300: GO I>.
240 FOR K=0T020:NEXT K: RETURN
250 FOR W=0T030:R=129+RND(62) : POKE G,R:POKE G+1,R:NEXT W
260 POKE A, 128: POKE A+l, 128: POKE A- 1,128
270 C=C-1:G0SUB 300: A=A+64: IF A>lol92 AND C>0 GOTO 20
IF OOlOOTO 30:ELSE:F0R W=0TC832 STEP 64:PRINT 3W, S7RING*(63
, 191) ; :NEXT W
290 PRINT 90. ""M INPUT " NEWLINE P/ J06AR NOOAMENTE ";A*:GOTO 10
300 PRINT 3896, STRING* (63, 179) ; :PRINT i960, STRING* <63, 191 ) ;
310 PRINT 9963." CANHOES - "I CM PRINT 3980, " MUNICAO - ";T;:PRIN
T 9999. " NAVES ABATIDAS -
320 RETURN
*»,
72
MICRO SISTEMAS, janeiro/84
m.5. Sen/fcbs
"MIKRO S"
AGORA NO
LEBLON!
Av. Ataulfb de Paiva 566 - Loj* 211
Rio de Janeiro — Tel.: 239-2798
APROVEITE OS PREQOS
"1NCRJVEIS" DA "MIKROS"
DO LEBLON, EM SUA EPOCA
DE 1NAUGURACAO.
,V1 K.RQCOMP IJT ADORES
NAJA — JR-SVSDATA — UNITRON
COLOR 64 — APPLE TRONIC
CP-200 — CP-300 — CP-500
TK-83 — TK-85 — R1NGO
S1STEMAS
SOFTWARE (NAC. E IMPORT)
LMPRESSORAS E PERIFr]RICOS
CURSO DE BASIC
PROF1SSIONA1S
ALTAMENTE ESPECIAL1ZADOS
PARA ATENDE-LO
AUMENTE A
PRODUTIVIDADE
DE SUA EMPRESA
PRH
CONSULTORES
Para o desenvolvimento da
sua empresa. estamos pron-
tos a servi-lo.
Assessoria de Processa-
mento de Dados. Desenvol-
vimento de Programas e
Treinamento de Pessoal.
futuro e hoje e nos esta-
mos presente.
PRH Consultores
Rua Mexico. 70 - Grupos 810 11
Centre - RJ. Tel.: (021) 220-3038
gg^E^ nzszsmia
O lugar compativel
com voce e seu
micro.
— Micros
— Acessorios
— Software
— Livros
— Revistas
Rua Dias da Cruz, 215 — S 804
Rio de laneira — R|
I BIP — 246-4180 — cod. 2x83
VENDA DE
MICROCOMPUTADORES
TK 83, 85, & 2000 COLOR
CP 300, 500 & 600
COLOR 64 (EXT. BASIC)
~ su rn m cM TOS
Disquete. ' 'as. form continuo
CONSULTOH.' DE StSTEMAS
Diagnostico e apco a decisao
CURSOS E TREINAMENTO
Introducao aos microcomputadores
Linguagem Basic
Aplicacao dos micros
na Engenhana
Microcomputadores para cnancas
INSCRICOES ABERTAS
Livros e revistas especializados
vise, oe Hiraja W/ Sobreioia zn
Cep. 22.410 Ipanema Rio RJ
Tel.: (021) 274-1042
DESPACHAMOS PARA
TODO O BRASH
Alfa Bit.
CLUBE DE COMPUTAQAO
Associe-se ao ABCc e ganhe Anuncio GRA-
TIS, urn exemplar de ALFA8IT e DESCON-
T0S de 10% na compra de LIVROS. REVIS-
TAS. CURSOS e PROGRAMAS. alem de
— Servigos de "Repnnters" e Consultas
— Associacao a Clubes Europeus
— Participagao em Cursos. Congressos e
Concursos
— Novos Langamentos a PREQOS REDUZI-
DOS (Bfeve IMPRESSORA DE AGU-
LHAS P/MINI-MICROS DE LOGICA SIN-
CLAIR - Langamento "Digital Eletro-
nica")
ANUIDADE" Cr$ 1.000 (hum mil cruzeiros)
somente ao receber seu Cartao-Descontos e
um exemplar de "Aifabif
Envie nome. enderego. prodssao e texto do
seu anuncio (caso queira publicacio ime-
diata)
N0VIDEIAH
ComunicaQao e Informatica Ltda.
CAIXA POSTAL 9978
CEP 01051 - Sao Paulo, SP
OComercializamos seu proie-
to-Soft ou Hard. Escreva-nos
ANUNCIO
PEQUENO
GRANDE
RETORNO
ESTE ESPACO ESTA
RESERVADO PARA SEU
ANUNCIO ECONdAAICO.
GARANTA JA UM
SUPER RETORNO. BASTA
LIGAR PARA:
RIO DE JANEIRO:
(021)286-1797,246-3839
e 266-0339
SAO PAULO: (011)
280-41 44 e853-3800
• VENDAS
• ASS. TECNICA
ESPECIALIZADA
• PROGRAMAS
• DISKETTES
• FTTAS
• SERVICOS
• CURSOS DE BASIC
• FORM I' LARK >S
CONSERTOS EM 24 HORAS
(COM GARANTIA) PARA
O CP-500 e DGT-100
EM SAO CONRADO
Estrada da Gavea, 642
Lj. B Tel.: 322-1960
No Recife, visite
T E L E V i D E (')
O Lojao de Informatica mais
descomplicado do pais!
Micros, perilencos. suprimen-
tos. Software. Cursos. Livros e
Revistas. Componentes Eietro-
nicos, Pecas e Som.
PREQOS ESPECIAIS
FINANCIAMENTO PROPRIO.
Compre pessoaimente ou peio
Reemboiso Postal.
TELEVIDEO LTDA.
R. MarquSs do Herval, 157
Tel.: (081) 224-8932,
(50000) Recife, PE
( ) Sr. Industrial: dislnbuimos seu
produto nas melhores condiqoes.
Contato em Sao Paulo: Tel.: (011)
220-7377 (Sr. ANDERSON — Mun
V^ disom)
CURSO BASIC
Turmascom lOalunos
Aulas praticas e tedricas
Horarios:
manha8:30hsaslO:30hs
tardel 4:00 hs as 1 6:00 hs
noite 20:00 hs as 22:00 hs
MAI RK VI. AS ABl-RIAS
kPflHEmfl micflo
Rua Vise, de Piraja. 540 lj 106
22.410 Ipanema Rio RJ
Tel. 259-1516
Atencao
leitores
de todo
Brasil!
MICRO SISTEAAAS informa que a
firma Spartime e o sr. Eloi Jora
Soares nao mais representors a
revista para fins de
venda de assinaturas.
Para assinar MICRO SISTEMAS,
dirija-se pessoaimente ou
por carta aos nossos enderecos:
Rio de Janeiro — R. Visconde Silva, 25, Botafogo, CEP
22281 , tels: (021 ) 286-1797, 246-3938 e 266-0339
Sdo Paulo — Al. Gabriel Monteiro da Silva, 1227, Jar- ^|^||
dim Paulistano, CEP 01 441 , tels; (011) 280-41 44 e 853- -_ . l/1SSL3
3800 siscsmas
Linha TRS-80
Organizando arquivos em K-7
Algumas vezes, gravamos tantos programas em uma fita,
que depois fica impossfvel sabermos onde esti determinado
programa ou qual programa estd sendo carregado no micro.
Para colocar "ordem na casa", 6 s6 acrescentar, quando for
gravar urn programa, uma linha como esta:
10 INPUT T$:PRINT#-1,T$:CSAVE T$
Digite RUN 10, e apos digitar o nome do programa e an-
tes de presaionar ENTER, ligue o gravador no modo de gra-
vacao.
E quando quiser carregar o micro, na"o use CLOAD, utili-
ze o seguinte programa:
10 INPUT#-1 , T$ : CLS : PRINT@256 , T$ :
PRINT@512, "CARRE GANDO
CLOAD
Car'os Alberto C. Jr.DF
Linha TRS-80
Video ilegfvel
Para tornar o video ilegivel digitando SS= USR (0), use
este programa que apresentamos a seguir (6 so apertar a barra
de e spa 90 para parar):
10 POKE 16561,225: POKE 16562,127
20 POKE 16526,225: POKE 16527,127
30 FOR X=32737 TO 32753: READY
40 POKE X,Y: NEXTX
50 DATA 62,0,211,255,62,251
60 DATA 211,255,58,64,56,230
70 DATA 128,202,225,127,201
E para rodar este programa em BASIC Disco, basta trocar a
linha 20 para DEFUSR0= 32737.
Eduardo Artacho-SP
die"?
D
Se voce tern pequenas rotinas e programas utilitarios real-
mente uteis tomando poeira em seus disquetes ou fitas casse-
tes, antecipe-se aos piratas e trate de divulgi-los. Envie-os pa-
ra a REDACAO DA MICRO SISTEMAS - SE^AO DICAS:
Rua Visconde Silva, no 25, Botafogo, RIO DE JANEIRO-RJ,
CEP 22281.
Nao se esqueca de dizer para qual equipamento foram de-
senvolvidos. Desta forma, sua descoberta poderi ser util para
muitos e muitos, em vez de desmagnetizar-se com o tempo
em suas fitas e disquetes...
Linha TRS-80
Ligue o gra vador com SS= USR (0)
Para ligar o gravador usando SS= USR(0), e desligar
apertando a barra de espaco, use este programa:
10 POKE 16561,225: POKE 16562,127
20 POKE 16526,225: POKE 16527,127
30 FOR X=32737 TO 32749: READY
40 POKE X,Y: NEXTX
50 DATA 62,5,211,255,58,64,56
60 DATA 230,128,202,225,127,201
Para que este programa rode tambdm em BASIC
Disco, € s6 trocar a linha 20 para DEFUSR0= 32737.
Eduardo Artacho-SP
Linha
Dimension
progressivo
Para utilizar urn DIMENSION progressive use as varidveis alfanume'ricas con-
catenadas (V$- V$+A$ onde A$ serl o dado a ser armazenado em V$).
Para recuperar os dados individualmentc, utilize V$ (X TO X + Y), onde X 6
o apontador para cada "dimensa"o" e Y i o tamanho de cada dado. Assim, o es-
paco utilizado no micro para armazenar dados ou mforma96es serd em funcao da
quantidade de dados ]i operados, e n5o de uma quantidade predeterminada.
Dessa forma o micro nao vai ficar guardando 'Tichas em branco".
Renato Degiovani-RJ
MICRO SISTEMAS, janeiro/84
Linha TRS-80
Trocando a senha
Todos que conhecem o Sistema Operational DOS 500 sa-
bem que o comando PROTfl (PW) serve para trocar uma se-
nna do disco por outra. Mas, e quando se desconhece a senha
original? Nao hi problema. Quando aparecer a mensagem :
MASTER PASSWORD?
i suficiente introduzir um outro disco em que a senha 6 co-
nhecida, e fornecer esta senha ao micro. Depois, voltar o dis-
co anterior e dar a senha atualizada, que sera gravada em lu-
gar da anterior, desconhecida.
Luiz Gonzaga de Alvarenga-GO
Linha SINCLAIR
Substituao PAUSE
£ comum precisarmos manter uma listagem no vi-
deo por um determmado tempo, para apaga-la poste-
riormente. A maioria dos usuarios utiliza a instrucfo
PAUSE X, onde X= n/60 segundos. Mas uma das des-
vantagens deste recur so sao as perturbacoes na tela, en-
tre outras. E nos equipamentos antigos, havia ainda a
necessidade de uma instrucao POKE 16437,255 (devi-
do a um erro de hardware) depois do PAUSE.
Para melhorar esta situacao, basta usar uma malha
de tempo (FOR—NEXT) como sub-rot ina. Por exem-
plo:
10 PRINT "MALHA DE TEMPO"
100 GOSUB 800
110CLS
800 FOR A=0 TO 100
801 NEXT A
802 RETURN
Para a variacao de a 100, a malha dura tres segun-
dos, de a 200 demora seis segundos, e assim sucessiva-
mente.
Dillon Bastos Fernandes-MG
Linha APPLE
Limpe o video com criatividade
Para limpar seu video de forma mais elegante e interessan-
te do que com um simples HOME, use esta dica e veja o vi-
deo ir se apagando da direita para a esquerda e vice-versa, do
centro da tela para as bordas laterals e o inverse, e ainda do
centro para cima e para baixo. Alem de voce poder criar mui-
tos efeitos com esta dica, observe o que acontece quando vo-
ce terminal o programa.
10 HOME : GOSUB 80
20 FOR I = 39 TO O STEP - 1: POKE
32,1: POKE 33,40 - I: HOME :
NEXT : GOSUB 80
30 FOR I = 1 TO 40: POKE 33, I : HOME
: NEXT : GOSUB 80
40 FOR I = 39 TO 20 STEP - 1: POKE
32,1: POKE 33,40 - I: HOME :
POKE 32, O: HOME : NEXT : POKE
33, 40: GOSUB 80
50 FOR I = 19 TO O STEP - 1: POKE
32,20: POKE 33,20 - I: HOME
: POKE 32,1: HOME : NEXT : POKE
33,40: GOSUB 80
60 FOR I = 13 TO 24: HTAB 1: VTAB
I: CALL - 868: VTAB 25-1:
CALL - 868: FOR J = 1 TO 5
O: NEXT : NEXT : LIST 40 -
70 PRINT : PRINT CHR* (93);: FLASH
: PRINT " ";: NORMAL : FOR I
= 1 TO 500: NEXT
75 VTAB 24: FOR I = 1 TO 21: PRINT
: FOR J = 1 TO lOO: NEXT : NEXT
: VTAB 1: END
80 LIST 40 - : FOR I = 1 TO lOOO
s NEXT : RETURN
Mike Glenn R J
Linha TRS-80
Data Optional no DOS
Na Secao Dicas de MS n9 24 publicamos um PATCH
para evitar que o DOS 500/TRS DOS solicitasse data/ho-
ra ao darmos RESET. Agora vamos apresentar PATCHs
que representam uma alternativa interessante : apesar de
manterem a solicitacao da data/hora, permitem que o
operador, tal como ja" acontece com a hora, digite as in-
formacoes corretas ou simplesmente aperte ENTER, fi-
cando a informacao correspondente ajustada em zero. Is-
to sera de muita utilidade se voce gostar de ter a data
corretamente registrada no diretorio, ao gravar um pro-
grama em disco. Em DOS 500 Ativo/TRS DOS Ready
digite:
PATH *0 (ADD=4ECl,FrND=F0,CHG=07) <ENTER>
PATH *0 (ADD=4ED4,FrND=3A814F,CHG=C3FE4E) <ENTER>
Estes PATCHs, embora so aceitem caracteres numen-
cos, n3o verificam se os valores mes/dia/ano estao den-
tro dos limites normais. Mas se voce ja" havia modificado
o seu DOS de acordo com a dica de MS no 24, nao se
esqueca de reverte-lo a condicao original — conforme o
manual do DOS 500 ensina na pagina 48 - antes de fa-
zer esta modificacao.
Roberto Quito de Sant'Anna-RJ
MICRO SISTEMAS, janeiro/84
Curso de
Assembler - XII
N
a ultima licSo estivamos conversando sobre as instru-
c5cs que compdem o grupo de aritmltica e logica de 8 bits.
A seguii vamos completar a descrica"o das instrucdes que
compSem este grupo-
1 1 - Operacao Logica XOR
Formato: XOR s
Operacao: Efetua uma operacao 16gica XOR do Acumulador
com o conteudo do operando s (r, n, (HL), (IXtd),
IY+d)). A operacao logica XOR 6 verdadeira
(bit = 1) se os operandos envolvidos na operacao
forem diferentes. A tabela abaixo demonstra os
possiveis resultados de uma operacao XOR:
1? bit
2? bit
resul tado
1
1
1
1
1
1
Codigo Objeto:
XOR
XOR
XOR
XOR
(HI)
(IX. d)
XOR (IV. d)
1 1 1 r r r
1110 1110
10 10 1110
110 1110 1
10 10 1110
1111110 1
10 10 1110
4 - d - ►
> El
> 00
-> At
-> FD
+• At
onde r identifica os registradores A, B, C, D, E, H ou L, monta-
dos a partir da tabela 1 .
I.xcmplo:
XOR
I
1
1
1
1
1
> AD
XOR
«fOH
T
_►
1
1 1
I
1
1 1
1
1
1
1
1
1
> EE
Descrigao: £ efetuada uma operacao 16gica XOR do operando
s, defmido como sendo qualquer dos operandos r,
n, (HL), (IX+d), (IY+d), com o conteudo do Acu-
mulador, e o resultado 6 transferido para o Acu-
mulador.
IMSIHUCAO
OPI 11 «(. «(l
I II III'. 01 NAOUIMAS (M)
SI All S ( 1 )
XOR r
A«- A r
1
«
>0H n
A— A I
I
7(».ll
XOR (III 1
A»- A -'(HI )
f
1 ( • , II
>0R (ll.d)
A— A 8 (U.d)
»
!>(».», t.S. ))
»OR (IV.d)
A— A S (1Y.«I
•>
!»(».*, 5. •>. 1)
Flags Afetadas: S - setada se o resultado 6 negative se-
nao 6 resetada;
Z - setada se o resultado 6 zero, senao 6
resetada;
H - resetada;
P/V - setada se a paridade 6 par, senffo 6
resetada;
N - resetada;
C - resetada.
Como exemplo, se o Acumulador conte"m 96H(10010110),
apos a execucao de XOR SDH (01011101), o Acumulador iii
conterCBH (11001011).
©
1
1
1
1
96H
1
t
1
1
1
1
50H
CBH
A instrucao XOR A move zero para o Acumulador.
12 — Compara Acumulador com operando
Formato: CP s
Operaqao: Efetua uma operacao de compara ca"o do conteudo
do Acumulador com o conteudo do operando s (r,
n, (HL), (EX+d), (IY+d)). As flags sao atualizadas
em funcao do resultado da comparacao.
Codigo Objeto:
76
MICRO SISTEMAS, janeiro/84
CP
(•(•
CP (HL)
CP (IX*d)
CP (IV»d)
onde r identifica os
tados a paitii da tabela 1 .
Exemplo:
10 111
r
r r
11111
1
1
10 111
1
1
110 11
1
1
10 111
1
1
^
' 1
11111
1
1
10 111
1
1
)s registradores A
B, C, D, E
>FE
>BC
> DD
>BE
>FD
-►Bl
CP
1
I
1
I
1
1
T
1
1
1
CP
*0H
— I 1 1 1 1 l i
11111110
t I I I t I I —
10
I I I I I I I
Detcrigao: Efetua uma operacSo de coniparat^io do conteudo
do Acumulador com o conteudo do operando s (r,
n, (HL), (IX+d), (IY+d)). Esta instruca"o efetua
uma subtracao do conteudo do Acumulador com o
conteudo do operando e posiciona as flags com o
resultado da operacSo, sem alterar o conteudo do
Acumulador.
INSIRUCAO
OPFRACAO
CICIOS DE
MAOUIHA (M)
SIAtIS (t)
CP r
A:r
*
CP n
A:n
7(A, J)
CP (HI)
A: (Ml )
7<*. J)
CP (IX. d)
A: ( IX. d)
I9(A,A, ),S, i)
CP (IV. d)
A:(IV.d)
!»<*>,*, ),},))
Flags afetadas: S - setada se o resultado e - negativo, se-
nao e" resetada;
Z - setada se o resultado e" zero, senSo i
resetada;
H - setada se ocorre empre'stimo para
bit 4, senao 6 resetada;
P/V - setada se ocorre overflow, senao e"
resetada;
N - setada;
C — setada se ocorre empre'stimo no bit
7, senao 6 resetada.
Por exemplo, se o Acumulador conte'm 63H, o par de regis-
tradores HL contdm 6000H e a posicao da mem6ria 6000H
conte'm 60H, ap6s a execucao da instrucao CP (HL), todas
us flags sao resetadas, exceto n.
?
MICRO SISTEMAS, janeiro/84
CompBel
SISTEMAS E MICROCOMPUTADORES
CURSOS
Introducao a Microcomputadores; BASIC dirigido a estudantes.
BASIC I e BASIC II
Aplicativos sobre software especffico.
1 equipamento por aluno.
Utilizacaode TK85, Apple II e TK2000. Impressora.
Cursos Fechados
VENDA DE EQUIPAMENTOS
• TK83, TK85, TK2000 e Elppa II Plus. Perifericos.
SOFTWARE APPLE
JACK ■ texto, arquivo pessoal, calculo e mala direta integrados
num disco (PORT)
BIBLIOTECARIO - Organizacao de bibliotecas. Pesquisa 40 ar-
tigos/seg. e arquiva 1000/disco.
DATA BASE — banco de dados (PORT)
AUTOCODE I - gerador de programas para DATA BASE .
SUPER - banco de dados; facil, versatil e o mais raoido.
LIST HANDLER - cadastro e mala direta; super rapido; 3000
arquivos/disco.
VISICALC - plamlha eletronica.
MULTIPLAN - planilha eletronica multiple.
VIS I PLOT - VISITREND - gerador de graficos. Estatistica.
SUPERCALC com graficos.
APPLEWRITER procestador de textos.
Outros, sob consulta.
SOFTWARE para HP85, sob consulta.
CIBERNE t a mais avancada e sofisticadi linha de sotfware para microcomputadores. criada
para livrar voce dos inconvenientes de producfies amadoras ou de origem duvidosa. Com
CIBERNE vooe tera uma diversificada linha de programas novos, lancados periodicamente
em pacotes econdmicos. Com gravacSo profissional e em embalagem inviolavel, CIBERNE
oferece a voce garantia total em qualquer lugar do Brasil.
PROGRAMAS EM FITA PARA TK-82. 83. 85. CP 200 E COMPATlVEIS
Com o exclusivo FLASH SISTEM que per
que o normal, urn qualquer modificacao n<
PROCURE EM SEU REVENOEOOR:
• CASCA A COBRA/CENTOPEIA - Ni iwm l.u. Hon MCiunus jogoi que Uo urn daufio i wa fubiii
dad* e raciocimo.
• FUNGOS MUTANTES/CRAZY KONG - Pw^goioi «geul6«J« itacam uma co*n« dt hum.no. E
man. o cltaico Kong agora malhorado • com 3 (acn .
• NAVE MAE/GALACTICA - Dana vt a invatlo o> cxtralerranm vai dtnuv voot arrapiado Oe amocio
colocando a prova ui pericia < intaliotncia
• DEFENSOR /MAZOGS - Voc* diriot a ultima nava qua tenia dalandet uma civllitacab ptrdida E o ma«
fantaatko dot caca ao lnouro
a GUERRA A«REA/ALERTA VERMELHO - Duas emoconame. avaniurat aaraaa onda voc* pilou urn
caca ou um podaroso bombardairo.
a ROT-I PLUS — Incremanta aaut programas com asta wniacional interna oparacional grafico. uma nova a
mais podcroia wrsfo da ROT- 1.
E PARA BREVE: • ESTRELA NEGRA • ORCA I (Orcamento Domestico)
• OMERCADOR • CRISTALMAGICO • ROT II (Compilador Ast/DttM)
• STARQUEST • GUERRILHA COSMICA • ARQ I (Arquivo de Dados!
• 2ARAKS • ALTA RESOLUCAO • CASH FLOW
E MAIS:
• VASTA LINHA DE PROGRAMAS PARA DIGITUS, CP-300
E 500, APPLE E MUITOS OUTROS.
EM TODO BRASIL NAS MELHORES LOJAS DO RAMO.
Informacoes, DistribuicJo e Vendas:
J VA- MICROCOMPUTADORES LTDA.
Av. Trezede Maio, 23 - Grupo 1519 - Rio de Janeiro - RJ
CEP 20.031 Tel.: (021) 262-6968
CURSO DE ASSEMBLER-XII
1 3 - Incrementa operandi) 14 - Decrementa operando
Formato: INC m Formato: DEC m
Operacdo: Incrementa o conteudo do operando m (r, (HL), Operando: Decrementa o conteudo do operando m (r, (HL),
(IX+d),(IY+d)). (LX+d),(IY+d)).
Cddigo Objeto: Cddigo objeto:
mc
IMC
r
(HL)
INC (IX. d)
— I 1
1 1
1
— I — I —
IMC (IV»d)
— r~" ~~i —
111
1
-H 1
onde r identifica os registradores A, B, C
tados a paitir da tabela 1 .
Exempio:
INC
■> 3*
> DD
> 3%
-> FO
> 3*
D, E, H, ou L, mon-
1
J— 1 1
1
1
1
I I 1
1
INC
(HL)
1
1
1
1 1
1
. __ 1 — 1
Descriqao: conteudo do operando m (r, (HL), (IX+d),
(TY+d)) i incrementado.
ihsimucAo
Od RA(A0
CICIOS 01 MAQUIMA (Ml
SIAIES (II
IMC r
r «_ r.l
'
A
IMC iM)
(HI )- (HI ).|
>
IK*. A.))
IMC (II*4|
(II. 4)— <ix. <).l
«
?)(A,A,I,*,A,)>
IMC (!»•<)
(IV.*)«-(IV.4).l
I
ni«, ».J.». a.i)
Flags afetadas: S - setada se o resultado 6 negativo, se-
n3o 6 resetada;
Z — setada se o resultado & 7£to, sena"o e"
resetada;
H - setada se vai - um do bit 3, senfio 6
resetada;
P/V — setada se o operando conte'm 79H
antes da operacao, senao € resetada;
N - resetada;
C - nJoafetada.
Como exempio, se o conteudo do par de registradores HL 6
6000H, e a posicao de mem6ria 6000H con tern o byte 28H,
apos a execucao da instrucao INC (HL), o conteudo da posicao
de mem6ria 6000H serf o byte 29H, e o conteudo do par de
registradores HL serf 6000H.
DEC
DEC (HL)
DEC (IX. d)
DEC (IY^d)
1 1 1 1 1 1 T ■ T
OOrrrlOl
o'o Vi o|i o'i
110 1110 1
00110101
^. ...*.. F
1111110 1
110 10 1
-► 35
-> DD
> 35
> FO
> 35
onde i identifica os registradores A, B, C, D, E, H ou L, monta-
dos a partir da tabela 1 .
000
para
rrr
■j
reglstrador
B
001
para
rrr
=
registrador
C
010
para
rrr
m
reglstrador
D
Oil
para
rrr
=
reglstrador
E
100
para
rrr
=
reglstrador
H
101
para
rrr
m
reglstrador
L
111
para
rrr
■
registrador
A
Tabela 1
Exempio:
DEC
C
1
I
1 1
1
1
1
1 —
DEC
(HL)
—
— 1
—
1
1
■
1
1
1
1
Detcricdo: conteudo do operando m (r, (HL), (LX+d),
(IY+d)) € decrementado.
IMSIAUCAO
OI'IKACAO
CICIOS M MA0U1HA (M)
SIAIES (1)
DEC r
r— r-1
1
A
DEC (ML)
(Ml)— (Ml)-I
1
IKA.A.l)
OCC (U.4)
(IX.O— (IX.4)-I
t
?}(A,».J.>.A.J)
WC (IV.*)
(IT.*)— (IY.O 1
I
?»(A.A.).».A,J)
78
MICRO SISTEMAS, janeiro/&4
Flags afetadas: S - setada se o resultado € negative
senSo 6 resetada ;
Z - setada se o resultado 6 zero, senao 6
resetada;
H - setada se ocorre empre'stimo do bit
4, senao 6 ressetada;
P/V - setada se o operando contdm 80H
antes da operacao, senao & resetada;
N - setada;
C - nSo afetada.
Por exemplo, se o registrador D conte'm o byte 2AH, apos a
execucao da instructor DEC D, o registrador D ira" conter o
byte 29H.
Agora, vamos esquecer um pouco a seqiiencia dos grupos de
instructs definidos pela Zilog, e passar a descrever um grupo
de instrucoes de vital importancia para a elaboracSo de qual-
quer programaeffo assembler. No ultimo grupo de instrucdes
descrito, aprendemos a efetuar comparacoes; entretanto esta
instrucao 6 passiva, ou seja, nSo executa nenhuma acSb no flu-
xo do processamento. grupo de instrucdes que passamos ?
descrever 6 o grupo de desvios, que efetua a acfo de desviar o
fluxo do programa, em funcao de uma comparacfo efetuada
anteriormente.
Vamos entSo as instrucdes deste grupo.
1 - Desvio incondicional:
Formato: JP nn
Operacao: Efetua um desvio incondicional para o endereco
especificado na instrucao. Esta operacao se asseme-
lha ao GOTO do BASIC.
Cddigo objeto:
3P
nn
1 I 1 1 1 1 —
10 1 1
— I — I 1 — I — I — I —
II
>C3
Exemplo:
3P
*063
1
1
1
1
1
1
1
1
1
1
■
>C3
-►63
> 40
Descrigdo: operando nn e carregado no par de registradores
PC (Program Counter), que aponta para o endere-
co da prbxima instrucao que serd executada. Ob-
serve que, nos dois bytes do operando em lingua-
gem de mdquina, o primeiro byte indica o byte de
baixa ordem do endereco. e o segundo indica o
byte de alta ordem do endereco.
Ciclos de maquina (M): 3
States (T): 10 (4,3,3)
Flags afetadas: Nenhuma
Por exemplo, a instrucao JP 50A1 provoca um desvio do
programa para o endereco 50A1H, isto e, a pr6xima instrucao
executada se encontra no endereco 50A1H.
2 — Desvio conditional
Formato: JP CC, nn
Operacao: Efetua um desvio para o endereco especificado na
instrucfo, somente se a condicao CC for verdadei-
ra. Esta operacao se assemelha ao IF do BASIC.
Cddigo objeto:
3P
CC
n n
1 1
cc cc cc 1
1 1 1 1 —
onde CC identifier a condicao da flag a ser testada. Se a condi-
cao for verdadeira, ou seja, se a flag estiver na condicfld deseja-
da, o desvio 6 realizado.
000 para ccc = para FLAG NZ (Z-0)
001 para ccc ■ para FLAG Z (7-1)
010 para ccc = para FLAG NC (C-0)
011 para ccc = para FLAG C (C-1)
100 para ccc = para FLAG P0 (p/V-0)
101 para ccc = para FLAG PE (P/V-1)
110 para ccc = para FLAG P (S-0)
111 para ccc = para FLAG N (S-1)
Exemplo:
3P
/, 4063H
110 10
— I 1 1 1 1 —
1
1
1
1
1
j —
I
> CA
> 63
-► *0
Descrigdo: Se a condicao 6 verdadeira, a instrucSo carrega o
operando nn no par de registradores PC (Program
Counter), e o programa cohtinua na posicao dada
por nn. Se a condicao 6 falsa, o Program Counter 6
incrementado usualmente, e o programa continua
no seu fluxo natural.
Ciclos de maquina (M): 3
States (T): 10 (4, 3, 3)
Flags afetadas: Nenhuma
Por exemplo, se o Carry Flag (Flag C do registrador F) esta"
setado, ap6s a execucao da instrucao: JP C, 1520H, o mi-
croprocessador ira" executar a instrucSo existente na posicao de
mem6ria 1 520H. ■
Amaury Correa de Almeida Moraes Junior 4 formado pelo curso de
Anilise de Sistemas da FASP, tendo feito diversos cursos de aperieigoa-
mento nas ireas do Eletrdnica Digital e Microprocessadores, e a tua I me ri-
te trabalha na a"rea de microcomputadores para o City bank.
MICRO SISTEMAS, janeiro/84
79
Do interior de sua nave espacial voce se ve rodeado de va'rios a stem ides.
Comande com firmeza seu micro da linha Sinclair, pois a colisao pode ser fatal \
Cuidado... os asteroides vem ai
Sergio Henrique Jarreta
Aster e" um programa desenvolvido especialmente para os
rrucrocomputadores compati'veis com o Sinclair ZX81.
Elaborado totalmente em Assembler, permite ser utili-
zado tanto em equipamentos de 2 ou 16 Kb.
objetivo do jogo e - simples: voce esta" pilotando uma nave
espacial em meio a uma densa nuvem de aster6ides, com os
quais deve evitar a todo custo colidir. Os unicos comandos de
que vai precisar sSo as teclas 5 e 8.
Os pontos vao sendo contados ate que sua nave colida com
algum asteroide. Quando isto acontece, basta teclar NEW
LINE (ou ENTER) - o placar 6 zerado automaticamente e o
jogo se reinicia. Pore'm, ha um detalhe: apos cada colisao a ve-
locidade da nave aumenta, sendo esse processo repetido 1 5 ve-
zes, quando, entao, a velocidade torna-se novamente mais
baixa.
Para a digitacao do programa, siga as seguintes uistrucQes:
1) grave o Monitor Assembler publicado em MICRO SISTE-
MAS niimero 23 (agosto de 83);
2) digite uma linha 1 REM com 61 1 caracteres ap6s REM;
3) digite uma linha 2 REM com 338 caracteres apos REM;
4) digite os blocos Assembler;
5) confira detalhadamente o que digitou;
6) elimine o Monitor;
7) digite as seguintes linhas:
3 SAVE "ASTER"
4 RAND USR 17296;
8) prepare a fita para gravacao;
9) digite RUN 3 e NEW LINE e grave o programa.
Nao e demais lembrar que a digitacao dos blocos Assembler
deve ser feita com a maior atencao, pois um unico c6digo erra-
do pode comprometer o funcionamento normal do programa.
Por isso, cuidado... e sucesso em sua pilotagem!
Sergio Henrique Jarreta estuda Programacio na Escola COBOL — Cen-
tre de Ensino, em Santos, e elabora programas nas linguagens Assem-
bler, COBOL e BASIC.
Aster -
- Blocos Assembler
■
BLOCO
1
17026
23
36
04
C9
2 A
82
4
36
80
11
20
00
19
3 6
80
23
16514
00
00
02
10
1A
08
06
4
16
15
IF
13
12
19
0E
14
17042
36
80
23
36
80
C9
2 A
OC
•o
01
B4
02
09
E5
01
21
16530
00
0B
05
18
1C
0A
0D
01
09
17
OC
ID
03
01
IE
IB
17058
00
9
EB
El
01
B5
02
ED
B8
2A
0C
4
06
20
3E
80
16546
07
OF
11
03
OF
IB
09
07
05
17
16
01
14
13
1A
11
17074
23
77
10
FC
C9
2 A
OC
4
11
FE
02
19
EB
01
05
00
16562
15
01
OC
6
19
ID
0B
0E
00
0A
18
0D
IE
4
02
IF
17090
21
4 9
42
ED
B0
C9
21
C6
4
34
7E
FE
43
C2
D4
42
16578
1C
08
10
12
00
00
00
00
3E
00
32
82
40
32
83
40
17106
36
00
21
84
40
ED
5B
C6
40
19
7E
32
C8
4
ED
5B
16594
CD
23
42
CD
53
42
11
8 4
02
2 A
0C
4.,
19
22
82
40
17122
C8
4
C9
16610
16626
CD
CD
7-1
37
42
42
21
n
26
00
40
C2
7E
E5
FE
41
F7
11
C2
22
83
00
41
19
2A
CD
82
37
40
42
23
FE
16642
00
C2
BS
41
7E
FE
76
C2
OF
4 1
C3
A 6
41
CD
86
42
BLOCO
2
16658
CD
98
4 2
2 1
82
4
34
CD
74
42
CD
EB
42
2 A
OC
40
16674
23
19
36
B4
CD
C8
42
2A
OC
4
23
19
36
9B
2A
0C
17131
3E
00
6
FF
00
10
FD
3C
FE
OF
C2
FD
42
CD
C8
42
16690
40
01
02
03
09
3 4
7E
FE
A5
C2
BS
4
2B
7E
FE
A5
17147
C9
21
P4
4 2
35
7E
FE
00
C2
CA
4
36
OF
CJ
CA
40
16706
C2
60
41
2B
7E
FE
A5
C2
64
41
2B
7E
FE
A5
C2
69
17163
05
80
80
05
80
06
03
03
80
80
80
85
80
80
02
03
16722
41
2B
7E
FE
A5
C2
6F
41
CD
B7
42
C3
E5
40
23
C3
17179
84
80
05
8
80
05
05
03
03
01
80
80
80
80
85
80
16738
7C
41
23
23
C3
7 9
41
23
23
23
C3
7 6
41
23
23
23
17195
80
85
80
So
85
80
80
80
05
83
87
81
80
8 6
82
84
16754
23
36
9C
2B
36
9C
2B
3 6
9C
2B
36
9C
2B
34
C3
E5
17211
80
8 5
80
8
80
80
80
85
80
80
85
8
80
80
5
80
16770
40
n
DF
C2
BC
41
2A
8 2
40
2B
CD
37
42
FE
00
C2
17227
80
05
5
80
80
5
80
8
8
80
85
80
80
85
80
80
16786
E5
41
11
20
00
19
CD
37
4 2
FE
00
C2
E5
41
7E
FE
17243
85
80
80
80
05
80
8 2
64
80
80
6 4
80
80
7
03
03
16802
76
C2
AF
41
CD
86
42
CD
9 8
42
C3
19
41
CD
86
42
17259
84
07
03
03
03
80
3
03
03
84
07
03
03
64
82
80
16818
CD
98
4 2
21
82
•o
35
C3
19
41
2 A
P?
40
6
21
2B
17275
80
82
80
83
83
83
80
80
80
81
80
80
83
83
83
81
16834
10
ro
CD
37
4 2
FE
00
C2
E5
41
11
20
00
19
CD
37
17291
82
80
80
6 2
76
CD
23
42
2A
OC
4
11
71
01
19
EB
16850
42
FE
00
C2
E5
4:
23
23
CD
37
42
FE
00
C2
E5
41
17307
01
16
00
21
0B
43
ED
B0
CD
EB
4 2
2 A
0C
4l
11
92
16866
C3
A 6
41
CD
86
42
2A
82
4
36
97
23
36
87
2B
2B
17323
01
19
EB
01
16
00
21
21
43
ED
BC
CD
EB
42
2A
OC
16882
36
82
06
21
2B
10
FD
36
83
23
36
82
23
36
81
06
17339
40
11
50
01
19
EB
01
16
00
21
37
43
ED
B0
CD
EB
16898
23
2B
10
FD
36
07
11
63
00
19
36
00
11
23
00
19
17355
42
2 A
OC
4
11
B3
01
19
EB
01
16
00
21
40
43
ED
16914
36
81
21
26
4
7E
FE
FD
C2
17
4 2
CD
B7
42
C3
FC
17371
B0
CD
EB
4 2
2A
OC
4C
11
2F
01
19
EB
01
10
00
21
16930
42
2 A
OC
40
3E
00
06
20
23
36
80
10
FB
23
3C
FE
17387
63
43
ED
B0
CD
EB
42
2 A
OC
40
11
D4
01
19
EB
01
16946
18
C2
28
42
C9
7E
FE
B4
C2
4 .
42
3E
01
C9
3E
00
17403
16
00
21
79
43
ED
B0
CD
EB
42
3E
00
2 A
OC
40
23
16962
C9
US
A 8
B4
B7
AA
80
9C
9C
9C
9C
9C
A6
B8
B9
AA
17419
01
21
16
CD
2 1
4 4
cs
6
00
09
CI
10
F6
3C
FE
20
16978
B7
2 A
OC
10
11
F8
02
19
EB
01
0B
00
21
43
42
ED
17435
C2
07
4 4
C3
31
44
E5
C5
6
IF
56
23
IB
2B
71
23
16994
B0
2A
OC
40
11
OC
03
19
EB
21
4E
42
01
05
00
ED
17451
10
F9
72
CI
El
C9
CD
Eli
4 2
CD
EB
42
CD
EB
42
C3
17010
B0
C9
2A
82
4
36
00
11
20
00
19
36
87
23
36
00
17467
CA
4C
ML
80
MICRO SISTEMAS, janeiro/84
A geracao def initiva e sempre a prdxima,
Voce s6 descobre o quanto precisa de urn Micro-Com-
putador JR da Sysdata depois que o conhece de perto.
Voce vai ter certeza de que fez um 6timo negocio ao
adquirf-lo assim que o colocar na sua empresa ou na sua
0888.
JR da Sysdata e rapido, e versatil, e compacto.
APLICApOES:
Contabilidade, controle de contas a pagar, controle de
contas a receber, folha de pagamento, controle de esto-
que, controle de clientes, relat6rio de clientes, mala direta,
calculos de orcamentos f inanceiros,controle de processos
industrials, calculos de engenharia, calculos de estatisti-
cas, fungoes matematicas, funcoes logicas em cadeia de
caracteres (STRINGS), graficos, jogos animados, progra-
mas educacionais.
O JR PERMITE AINDA:
O acesso a grandes sistemas de computacao, a comuni-
cacao entre os departamentos de Empresa, efetuar pro-
gramas espedficos para cada Empresa.
E, como se nao bastasse, ele e o Micro-Computador de
manor preco do mercado.
Com todas as qualidades que tern, o JR da Sysdata nem
precisava ser tao economico. Mas e.
Afinal, ele e o mais completo Micro-Computador de sua
geracao.
Inclusive no preco.
Voce pode testar estas e outras qualidades do JR em
qualquer dos nossos revendedores.
^Suuaiiua
AV. PACAEMBU,
CEP 01155 - TEL: 67.5900
REVENDEDORES: SAO PAULO/Capital Ad Data 864.8200; ADP System 227.6100; Bucker 881.7995; Cinbtica 36.6961; Compumarketing 212.9004; Compute 852.8533; Com
puterland 231. 3277 Foto Leo 35.7131; Fot6tica 853.0448; Guedes 289.9051; Horst 203.5597; Interface 852.5603; Lema 210.5929; Microrei 881 .0022; Miprotec 289 4941; Nova Gera
cao 814 3663 O.P.A. 35.8685; Plandata 275.0181; Plantel 543.9653; Sacco 814.0598; Servimec 222.1511; Sistenac 282.6609; S.O.S. 66.7656; Runners 469 0887; Campinas
Computer House 852.5855; Computique 32.6322; Microtok 32.4445; Rio Claro Coml. Micro Cosmos 34.5801; Ribeirao Preto Compusys 635.1195 Araras Copec 41 3779;
Taubata Ensicon 33.2252 Mogi Guacu Guacumaq 261.0236; Braganca Pauiista - Infordata 543.5198; Bauru; MarMia Sipro 33 4109; Catanduva Teledalto 22.81 19, RIO
DE JANEIRO/Capital Clap 228.0734. Computique 267.1093; G D M Informatica 284.8744; JR de Goes 246.4180; Kristian 391 .3165; Suprimento 274.8845; Patropolis Foto Oti
ca 42 1391 MINAS GERAIS/Balo Horizonta Compucity 226.6336; Computec 225.2617; Kemitron 225.0644; Minas Digital 337 7946; Pocos da Cakta» • Computique 721.5810;
RIO GRANDE DO SUL/Porto Alagra Advancing 26.1194; Aplitec 24.0465; Digital 24.1411; Microsis 22.9782; Palotas Sistematika 22.3810; Novo Hamburgo Micromega
93 4721 PARANA/Curhiba Computique 243.1731; Micro System 232.3533; Morgen 232.0593; Ponta Grossa - Grupo Data Memory 24.6191; Londrina Shop Computer
23 9674 GOlAS/Goiania Casa do Microcomputador 223. 1 165; Grupom 225.8226. SANTA CATARINA/Fk>fianopo«» Castro 22.6933; Infotec 23.4777, BRASIUA/D«trrto
Fadaral Compushow 273.2128; Digitec 2254534; MATO GROSSO DO SUL/Campo Grande DRL 382.6487; Video 321.4220; CEARA/Fortalaza Siscompy 244.4691;
PAR AIBA / Joao Passoa Medusa 221 6743; PERNAMBUCO/RacHa Elogica 241 .1388
Na garupa dos videogames e jogos para computadores, surge o joystick, para muitos
dispensavel, para outros a unica razao de ser dos jogos de movimento
Joystick
Fundamental ou acessorio?
Falar de joystick e nao citar a Ata-
ri e o mesmo que falar em micro-
computadores e esqueccra Radio
Shack ou a Apple. Apesar de nao ser a
unica e nem mesmo a melhor industria
de joystick, a Atari merece ser sempre
lembrada por ter criado aquele que e ho-
je o mais difundido controlador de jogos
do mercado, base para muitas adapta-
c/5ese versSes tupiniquins.
Na verdade, os "professionals do ra-
mo" ha muito abandonaram seus joys-
ticks tipo Atari e tentam, via amigos-
que-viajam-ao-extenor. acompanhar o
fantastico desenvolvimento desses aces-
s6nos nos pai'ses mais adiantados. Afi-
nal. Id fora e possi'vel encontrar urn au-
tentico manche para aquele programa
especial tipo Cuerra nas Estrelas. onde
voce e o pdoto de urn fantastico ca<;a hi-
per-supei-sonico. numa nao menos fan-
tastica batalha espacial.
joystick posto desta forma deixa
transparecer a sua real concep<;ao fun-
cional e estrutural. que pode ser tradu-
zida por "uma haste vertical com mo-
vimentos dnecionais. que substitui algu-
mas teclas ou outros mecanismos de
acionamento". Mas por que entao cnou-
se uma mistica tao grande em torno de
algo tao simples? Esta e uma questao
que vem a reboque de outra maior: por
que esta febre por jogos animados que
tanto barulho tern causado? Sao pergun-
82
tas que nao podem ser rcspondidas am-
da hoje. pelo menos razoavelmente.
A industria c a propaganda ajudaram
a cnar a lenda de que aquele escore ma-
tingi'vel se tornana uma constantc com
o novo joystick oitava maravilha do
tnundo, Do sonlio a rcalidade. o dcsper-
tai pode ser doloroso. e sobretudo deve-
se ter cautela. pois tudo isso pode ser
mais uma arapuca para ingenuos usua-
rios.
POR TRAS DO MANTO
Despido de sua aura, podcmos defi-
nir urn joystick como sendo urn contro-
lador de fun<;5es que tern a pretensao de
agilizar e tornar mais seguras certas
a<;5es. Ele pode. c tern sido muito mais
usado desta forma, ser urn controlador
de movimentos em jogos animados. Mas
nem todos os jogos fazem dele um que-
brador de recordes: em alguns ele e to-
talmente dispensavel e em outros nao
fara muita difercnc,a tc-lo ou nao.
Existe tambem o paddle, versao mais
"simplificada do joystick, no qual a ala-
vanca e substitui'da por um botao gira-
t6no. A movimentacao das figuras. no
entanto. 6 feita somente em duas dire-
96es (direita e esquerda), tomando-o.
neste sentido, menos eficaz.
Um joystick 6 mecanicamente mui-
to simples. Ele pode ser construido com
contatos magndticos ou eletromecaru-
cos, por sensores especiais ou ainda com
a nova borracha semicondutora. Na inti-
midade, pordm, tudo nao passa de sim-
ples interruptores que podem ser con-
MICRO SISTEMAS. janeiro/84
cebidos com muita facihdade. Sua hga-
cao com o micro ou console de video-
jogo c que podc causai uma sene de
abonecunentos ao usuano.
dcialmcnte tal ligacao e feita poi
uma tomada- RCA. porem nao ha qual-
quci padiomzacao quanto a pmagem da
mesma. provocando. dcssa forma, algu-
mas confusocs c uns poucos curtos-cir-
cuitos. De fato, tudo sena mais facil se
as mdustnas fizessem constai no manual
de seus equipamcntos alguma inform*
cflb a respeito desse tipo de ligacfo.
\pcsai disso. alguns fabucantcs ja
tern mcoipoiado a seus equipamentos
sai'das. especiais. Tais sai'das sab. via de
rcgia. '*em paialelo" coin o teclado, o
que de ccrta forma e o meio mais dire-
in dc so obtei uma ligacao com o joys-
tick. () Coloi 64. poi exemplo. possui
inn comando espcci'fico do leituia paia
joystick (JOYSTK), que iepiesenta
um avanco em iclacao aos micros adap-
tados.
a situac, Ao no brasil
No Biasil aiiida naocxistc tecnoioii.u
e tiadieao SllflCicntCS paia a cletiva ta-
bi. cacao de joysticks. As pecas ainda sao
import adas, e o que se percebe sao algu-
comando JOYSTK do Color 64 facilita a ligacdo Jo joystick no a/uipamcnlo
mas empiesas esfoicando-se em colocai
o pioduto no meicado embora este es-
foico, na pratica. nao se esteja tiaduzin-
do cm um fjUXO normal de pioducao
e consumo.
Isto c simples de consiatai : basta um
giio poi algumas lojas de miciocompu-
ladoies. Joysticks anunciados simples-
mente nao sao eneontiados. outios to-
lam lunctiilns na ultima I eira de Infoi-
mdtica e ate hoje nao se tern noti'cia de-
les; e existem tambem casos como o da
Miciodigital. que paiou sua pioducao
devido a dificuldadc de impoitacao dc
componentcs.
Um joystick custa. quando encon-
tiado. de OS 18 a 45 mil (no caso dos
mais sofisticados). publico consumi-
doi e muito vanado. "Em geial e o ado-
lescente e a cnanca que ja possui um mi-
ciocomputadoi. mas ha tambem o exe-
cutivo que usa seu micro no tiabalho e
que nos fins de semana gosta dc bnn-
eai", conta Soma Apaiecida Paganim.
assistentc dc vendas da Computeiland.
Ricardo Magen Stella, vendedoi da Mi-
cioshop. ja acha que a maioi parte das
pessoas que o piocuiam sao miciantes.
leigos no assunto. que estao eomccando
pclosjogos.
A existence de um meicado interns
c Flagrante. Dispensdvel ou nao. o fato
c que o joystick ja esta mcoipoiado ao
univciso dos jogos eletronicos. Ganhaia
quern acordai mais cedo.
Pesquisa e apuracao. Claudia Salles Ramalho.
Denise Pragana e Ricardo Inojosa
Na terra dos videogames
Nos I slados I nidos, bcr N - o
c parafso mundial dos w*
deogames, as disponitnli-
dadCS sao muitas e K apcrt'ei-
coam a cada ano No caso espe-
effico dos joysticks, eles acom-
panham a (cndcncia ticral do se-
ll n dc hardware a constante
cvolm.ao tecnologica concspon-
,lc um decrcscimo progrcssivo
nos piecos
A quahdadc tambem crcscc:
,>s novos joysticks dc baixo prc-
tfO ia mcorporam caracteristicas
que ate ha bem pouco tempo
cram pnvilegio dos modelos
mais sonsticados.
A Wico Corporation c o prin-
cipal t'abneante de joysticks,
coin a maior c mais divcrsitica-
da linha dc produtos. dcstinados
a uma variedadc do marcas de
videogames, tais como Atari.
Commodore c Coleco Vision.
The Boss, joystick tipo avido, da
Wico
Trackball, da Roklan
I ntre os outros fornecedores dc
renome figuram a Spectravideo.
Discwasher. TG Products. Point-
master, Roklan e Suncom. alem
dos propnos fabneantes de vi-
deogames e arcades (fliperamas).
Quanto aos prc^os, acompa-
nliam a sofisticac,ao tecnologica
do produto. vanando. em me-
dia, de acordo com levantamen-
to da revista Electronic Games
(outubro/83). entre US$ 13 e
L'S$ 50.
Os formatos desscs pcrifcri-
cos e os tipos dc acionamento
que utilizam variam bastante.
destacando-se, porem, alguns de-
les, a comecar pelo modclo tra-
SUntsc com controlador (Wico)
O Joyboard, da Amiga Corpora-
tion
dicional, com alavanca reta e bo-
tao de disparo no corpo do apa-
relho. Algumas marcas oferecem
alavanca de comando do tipo
aviao, com botao dc disparo in-
corporado a propria alavanca.
enquanto que outro modclo bas-
tante comuni e o paddle. Bfl
qual a alavanca c substitui'da nor
um botao giratorio. Ambos os
modelos podem tambem vir
torn ou sem teclado de membra-
na.
Tambem muito intcrcssantcs
sao os tipos trackball (o contro-
le c feito atraves de uma esfera
que permite comandar movi-
mentos de 360 graus) c o mou-
se (camundongo). controlador
no qual os comandos dc dirct,au
advem da movimentai;ao do pro-
prio dispositivo sobre uma su-
perfi'cic lisa. I'ora esses, ha mo-
delos que tern desde um volante
- para jogos tipo Formula 1 -
ate o joyboard, uma platafor-
ma tipo balanca de banheiro so-
bre a qual a pessoa controla o
jogo com os movimentos do
propno corpo.
MICRO SISTEMAS, janeiro/84
83
Quer um parceiro com quern nao precise dividir o premio? Rode o programa
e deixe que seu micro da linha Sinclair de os palpites por voce
Os palpites da
microzebrinha
Nelson Hisashi Tamura
Todo bom apostador da Loteria
Esportiva costuma se armai de
intiincados esquemas e infaliveis
cdlculos estatisticos e de probabilidade
para maicar seu cartao - e as vezes o
bolSo sai para aquele que aposta simples-
men te na base da sorte e da adivinhacao...
Mas, se voce quiser, seu micro da linha
Sinclair podera ajuda-lo bastante. Do
jeito que esta, este programa vai marcan-
do, aleatoriamente,' quantos cartOes vo-
ce quiser, com apenas uma ressalva: os
duplos e os triplos ficam por sua conta.
Agora, se voce tambe'm tiver um destes
esquemas infaliveis, podera introduzi-
lo, justamente no trecho responsive 1
pelo sorteio dos palpites aleatorios: li-
nha s 240 a 300.
E como duas cabecas palpitant me-
lhor que uma, suas chances de alcancar
os sonhados 13 pontos aumentam e...
da'-lhe,zebrinha!
Nelson Hisashi Tamura 6 estudante do Curso
T4cnico de Eletrdnica na E.P.S.G. Liceu Bra's
Cubas. Atua/mente trabalha numa oficina de
enrolamentos de motores etetricos, onde uti-
liza um CP-200 para arquivo de dados e con-
trole geral da oficina.
1 REM < NELSON HISASHI TAMURA >
io let a$="I 1 1 i mmmaa"
15 LET B$ = "[
20 LET C$ = "!
25 LET D$ = "i
30 FAST
35 PRINT AT 1,0;"HMHI
40 PRINT AT 0,0; "B";C$ ;"!■"; AT
2,0;"B";D$;"H"
50 PRINT ,"I1^MBMHS
HSU"
60 PRINT "TTPliETOI DID IB I '
70 PRINT ' " ;A$
80 FOR X=l TO 13
IF X<=9 THEN LET E$="B 0"
IF X> = 10 THEN LET E$ = "|] "
110 PRINT " ";E$;X;B$
120 NEXT X
130 POKE 16418,0
140 PRINT AT 22,1, - AS
150 PRI NT AT 0, 22; tEhy k m"; A
^1";AT 2,22; "EUD
90
100
T 1,22;'
Loteria Esportiva
i i
160 PRINT AT 4,21;"OBSERVACAO";
AT c •»!-«■■, ■■■■■■■ ...
170 PRINT AT 7,21;">0 DUPLO E";
AT 8,22;"TRIPL0 EH";AT 9,22; "COM
VOCE. "
180 SLOW
190 FOR W=l TO 1000
200 FOR M=l TO 3
210 P RI NT AT 4 , 4 ; " CARTAO NB" ; W ;
AT 4,4; "M»:1*H"
220 NEXT M
2 30 FOR N=l TO 13
240 LET A=INT (RND*4)
2 50 IF NOT A THEN GOTO 240
260 IF A=l THEN LET L=7
270 IF A=2 THEN LET L=ll
280 IF A=3 THEN LET L=15
290 PRINT AT N+8, L; taH"
300 NEXT N
310 PRINT AT 11,22; "GHanD"; AT
13,22;"0 P/OUTRO";AT 14,22; "F P/
FIM"
i/0 IF INKEY$="F" THEN GOTO 500
330 PRINT AT 13, 21 ; ">B" ; AT 14,2
1;" F"
340 IF INKEY$="0" THEN GOTO 370
350 PRINT AT 14,21;">fl";AT 13,2
1;- O"
360 GOTO 320
370 FOR N=l TO 13
380 PRINT AT N+8, 7;" ".-AT N+8
,11;" ";AT N+8, 15;"
390 NEXT N
4 00 NEXT W
500 FOR N=l TO 14
510 PRINT AT N+8,7;
520 NEXT N
530 PRINT AT 17,21;"
';TAB 21;"
■ ■ ■ ■".-TAB 21;
| TAB 2 1 ; "|
";TAB 21
540 GOTO 5 30
900 SAVE "LOTERIA"
999 RUN
R4
MICRO SISTEMAS. janeiro/84
CompuShop
especializada
em solucoes.
Com um microcomputador voce cria, organiza, preve, promove,
controla, calcula, gerencia, analisa, arquiva, administra e, tambem se
diverte. A capacidade e eficiencia de um microcomputador agilizam
e simplificam sua vida. Foi para melhor atender as suas necessidades,
que a CompuShop criou TotalWare, uma infra-estrutura de
apoio que e tudo que voce e seu micro podem precisar: 5>
orientacao na escolha do hardware e software, a mais
completa linha de perifericos e acessorios, literatura
especializada, suprimentos, cursos e treinamento, alem
de assistencia tecnica permanente. r
A CompuShop e a unica loja especializada em c-
microcomputadores que possui uma equipe de profissionais
que garante todo o suporte que os clientes precisam, desde a
grande empresa ate o pequeno usuario. Venha ate a CompuShop
e conheca todas essas vantagens de perto.
CompuShop
Sao Paulo: Rua Dr. Mario Ferraz, 37-Tel.: (01 1 ) 81 5 00 99 - Telex (01 1 ) 3661 1 BYTE BR
Av. Presidente Juscelino Kubitschek, 889- Tel.: (01 1 ) 852 77 00
Londrina: Av. Higienopolis. 465- Tel.: (0432) 23 71 10
Comunicado
A/I ICR0
1 W± SISTEMAS
informa aosseus
leitores, assinantes
e anunciantes que a
partir desta edicao
a re vista passara a
ser impressa em
papel tipo off set em
virtude da escassez
do papel couche no
mere ado nacional,
causada pel a grande
expansao da
exportacao deste
tipo de papel para
ajudar a a tender as
metas dapolitica
economica do pais.
Esta medida nao
afetara a qualidade
editorial que MICRO
SISTEMAS vem
mantendo durante
seus dois anos de
existencia,
inclusive porque
acrescentaremos
cadernos de couche
quando necessario.
Esta adequacao a
situaqao economica
do pais visa evitar
um desmensurado
a umento no preco de
capa e tabelas de
publicidade, o que
seria contrario a
politica quesempre
procuramos manter,
enfrentando todas as
dificuldades como
pioneiros no campo
de divulgaqao
da Inform atic a.
A Direcao
NAO PERCA NOSSA
PROXEMA EDigAO!
fc^^feMICRO SISTEMAS,
edicao de fevereiro, esta
cheinho de sensacionais
Ss e programas para seu
equipamento^__
» Aplicagoes em Engenharia
— calculos de viga, lajes
etc.
» Inteligencia Artificial, um
artigo empolgante do
prof. Antonio Costa
e mais: diversos utilitarios
para voce aproveitar todo o
potencial de seu
equipamento.
. Vfflcro
86
MICRO SISTEMAS, janeiro/84
*
NOVO CP 300 PROLOGICA.
.
Opequeno
grande micro.
Agora, na hora de escolher entre urn
microcomputador pessoal simples, de facil
manejo e urn sofisticado microcomputador
profissional, voce pode iicar com os dois.
Porque chegou o novo CP 300 Prologica.
novo CP 300 tern prego de
microcomputador pequeno. Mas memoria
de microcomputador grande.
Ele ja nasceu com 64
^ kbytes de memoria
«^J 3^^^ interna com
^^r possibilidade de
S 1
Compativel com
programas em (ita
cassete ou em disco.
Pode ser
acoplado a uma
impressora
ml
Pode ser ligado
a urn televisor comum
ou a urn sofisticado
terminal de video.
quase 1 megabyte.
E tern urn teclado protissional,
que da ao CP 300 uma versatilidade incrivel.
Ele pode ser utilizado com programas de
tita cassete, da mesma maneira que com
programas em disco.
unico na sua faixa que ja
nasce com 64 kbytes de memoria.
Pode ser ligado ao seu^aparelho de TV, da
mesma torma que no terminal de video
de uma grande empresa.
Com o CP 300 voce pode
fazer conexoes telefonicas
para coleta de dados,
se utilizar
de uma
impressora
e ainda dispor de todos
os programas existentes
para o CP 500 ou o
expansao de memo- , e | C e ° f 2" c a a TRS-80 americano. E o que e melhor:
ria externa para ate ' voce estara apto a operar qualquer
outro sistema de microcomputador.
Nenhum outro microcomputador pessoal
na sua taixa tern tantas possibilidades de
expansao ou desempenho igual.
CP 300 Prologica.
Osoutrosnao mmm PROLOGICA
tazem que ele faZ. | H microcomputackxes
pelo prego que ■■■
ele cobra.
Permite
rfSMVADlMB^oO
Av Enq ics Carlos Benin. 1 168 - SP
^k\^> *
*v^
v.\^
HJ5V
AM
Manaus- 234-1045
•BA Salvador - 247-8951
• CE-Fortaieza ■ 226-0871 - 244-2448
•DF-Brasiia 226 1523 - 225-4534 -ES-Via Vema
229-1387 - Vitona - 222-5811 •GO-Goiama - 224-7098 • Ml
Cuiaba - 321 -2307 • MS-Campo Grande - 383-1270 ■ Dourados - 421-1052
• MG-Belo Honronte - 227-0881 - Betim - 531-3806 ■ Cel Fabnoano - 841-3400 - Jui2
: Fora - 212-9075 Ubenand'a - 235-1099- PA-Beiem - 228-0011 • PR-Cascavel - 23-1538 - Cun-
liba - 224-5616 224 3422 - foi do IguaQu - 73-3734 londnna 230065 • PE-Recile - 221 -0142 • Pi- '
i. H86 «RJ- Campos - 22 3714 Riode Janeiro - 264-5797 - 253-3395 252 2050* RN-Natai - 222-3212 -RS-Caxias do
-221 3516- Peiolas - 22-9918 - Porto Aiegre - 22 4800 24 0311 • Santa Rosa 512 1399 -RO Porto Veiho - 221-2656 • SP
Barrelos 22-641 1 Camp.nas - 2 4483 - Jundiai 434-0222 - Manna - 33-5099 - Mogi das Crures - 469-6640 - Piraocaba - 33 1470 Ribeifao
>relo 625 5926 635-1195 -SaoJoaquimdaBarra- 728-2472 -SaoJos6dosCampos- 22 -7311 -22-4740 - Sao Jose do Rio Prelo - 32 2842 Santos 33-2230
Sorocatw • Biumenau 22 6277 Chapecd- 22 0001 -Cncuma- 33-2604 - Flonanopolis - 22-9622 -Jomvile- 33-7520 -SE-Aracaiu 224 1310
Solicite
demonstrapao
nos principals
magazines.
.WKW..I*
*****
^S
■ nflniniBiiiiin
mmtmmm'vmrtmm
Aqui voce tern a melhor
iniciacaoem
microcomputacdo
que existe.
O TK 83 jd enslnou mais de 2 milhdes de pessoos.
E/e e muito fdcil de operar. Usa o Basic, e a memdria chega
ate 64 K bytes, e aceita monitor, impressora e joystick
Num instante voce vai estar resolvendo problemas
programando, ou vencendo os muitos jogos disponiveis. O
TK 83 nao e so a melhor iniciacao Tambem d o mais divert ida.
*$$&
*"
qui voc§/a apffca
? seus conhecimentos
Com o TK 85 voce tambdm pode se dlvertir muito: e/e
m dezenas de jogos disponivc
Mas e/e jd e mais sofisticado. Tern software j6 pronto. '
iguagens Basic e Assembler. Teclado tipo mdquina de
crever, com 40 teclas e 1 60 funcdes / bou48K.de
emdria RAM, e I Ode ROM. Gravacao em high-speed,
e funcdo Verify, para maior seguronca
Ouando voce jd estiver apaixonado por
icrocomputacao. e/e vai corresponder totalmem
. : :.
TK2000a*u*
'i * m iifii
* * * * liiiiiii
AquivocG mostra
tudo o que sabe
O TK 2000 Color tern tudo que os
melhores micros tern. Menos opreco
Aceita diskette, impressora (jd vem i
interface , alta resoluca? ^-dficad co
podendo ser ligado oo sto TV color ido
ou P<88 Tern 64kde memdria RAM e
16kde memdria ROM. Com excelente
software disponivel.
Voce poae mostrar tudo o que sabe.
. Sem precisar mostrar muito dinheiro.
/VllCROWGIWl
mos^Mim
CoImo Postal 54121 CEP 01000-
Sdo Paulo ■ SP Ul9x n c . (01 1) 37008 MIDE
A vendo no» boat rasot do romo /o/o» eipec lalliadat de fofovideo-tom • grondei mogounn em AlAGOAS ■ Moeei6 Palmeiro dot Indiot AMAZONAS - Monavs tAHIA ■ Salvador CtARA ■ Forio
Ilia. DISTRITO flDtKAl Brotilia CSPIRITO SANTO - VH6ria GO/AS Goiomo. MA TO GftOSSO ■ Cuiobd MINAS OIKAIS • 8e/o Homonie Divmopofls. Iro/ubo Juii de Foro Potoi de Coldoi S«o
Jodo Del Re. Teolllo Ofoni. Uber/ondlo. Uberobo Vlf oto » A»A(8A - Compmo Grande PAHA - Be/em PARANA ■ Cuniiba londrma Morlnga PtRNAMBUCO Real* RIO Of JANHKO Compel Ni
leroi. Novo Fnburgo Pelropoln. Reiendi Rio de Janeiro. Volto Redondo RIO GRANDt DO SUl - Bog* Conooi, Co- tat do Sul l/ui Novo Homburgo Pelolot Porto A/egre Soni Anno do llvromen
la Sonflogo, Sonlo Roto Sflo Leopoldo RIO GRANDt DO NORTt ■ Nolol. RONDONIA ■ Porlo Velho SAO PAULO Araroquoro Assis Avore Bouru Birigut. Bolucolu Compinos Co'onduvo franco
Guorulhos. Ilu. Jororei Jau, llmelro. Llns. Manila Mogi Guofu. Mogi dot Cruzes. Ourinhos Piroficobo Pirostunungo PrommOo. Rio Claro RibtlrOo Prtlo Sonros Sonfo Borb ifOfi't Mo Ber-
nardo do Compo. Sflo Jodo da Boa Vlsla. Sflo Sebi do Gromo Sdo Cor/o». Sflo Joie do Rio Prulo Sto Jost dot Compoi Si' Andre. Sflo Poo/o. Sorocobo. Suiono Toubo'e SANTA CATARINA - Blum*
nou Brusque Hormopolu llajal. Jolnvllle. SIRGIPt ■ Aroco/u. Se voce nAo enconlror esfe equlpomento no iuo r'dode f'gue poro ' ' BOO ?S5 B583
Live Music
Archive
Librivox
Free Audio
Metropolitan Museum
Cleveland
Museum of Art
Internet
Arcade
Console Living Room
Open Library
American
Libraries
TV News
Understanding
9/11